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Editorial 





Notre environnement d’utilisateurs de l’informatique individuelle évolue chaque jour, comme nous avons 
pu le constater avec l’arrivée des SORD, IBM et autres SIRIUS... Cette remarque relève presque d’une 
platitude, tant nous savons notre domaine d'intérêt évolutif. Des changements structurels sont cependant en 
train de s'effectuer, qui vont beaucoup plus loin que la simple apparition de périphériques ou de logiciels 
nouveaux. En un mot, les constructeurs « classiques » pénètrent en force, et avec des moyens promotionnels 
extrêmement puissant le domaine de l’informatique individuelle, comme nous pouvons nous en convaincre 
avec les informations suivantes. 


Selon une étude publiée par Computer Business News en mars dernier, l’évolution prévisible pour les 
quelques années à venir est importante. En 1981, les park de marché étaient les suivantes : TRS (28 %), 
Apple (25 %), Hewlett-Packard (11 %), Commodore (10 %), Xerox + DEC + IBM (10 %)}), autres (16 %). 
Selon les prévisions, les chiffres de 1985 seraient les suivants : TRS (15 %), Apple (12 %}), H-P (14 %), 
Commodore (3 %), Xerox (17 %), DEC (11 %), IBM (23 %), autres (5 %). Ceci dit, étant donné l'expansion 
prévue pour ce marché, la baisse de 50 % de part de marché de TRS et Apple devrait en fait correspondre à 
une hausse confortable du chiffre d’affaires. Ainsi, les ventes d'Apple au premier trimestre 1982 ont été de 
131 millions de $ (66 % de hausse sur 81), avec un bénéfice de 10 % du chiffre d’affaires. 


Nous aurons donc l’occasion de pennettre aux utilisateurs de langue française d'échanger leur savoir-faire 
sur Apple pendant encore longtemps. Dans ce numéro, Michel Crimont tennine sa série sur le programme de 
catalogue général en Pascal. Christian Colmant vous offre une revue des mémoires de masse. J.-F. Duvivier 
présente un tableau de référence complet des codes ASCII, afin de vous éviter d’avoir à feuilleter des sources 
multiples pour rechercher certains renseignements de base. Enfin, Dominique Compère, un lecteur de Pom's, 
propose des programmes en BASIC, largement commentés à l'attention des débutants, destinés à faciliter la 
création et l’utilisation de tables de fonmes, en graphique haute résolution. 


Toutes les félicitations de l’équipe de Pom'’s vont à Dominique Devemay, qui a réussi à résoudre notre 
problème-concours. Nous avons regroupé ses remarques et celles de l’auteur du problème, J.-F. Duvivier, 
dans un article explicatif. Nous vous apportons dans ce quatrième numéro de nombreuses infonnations de 
toutes sortes et une grande variété de programmes. À titre de compensation, les mordus de l’assembleur 
trouveront leur plaisir dans les articles de Gilles Mauffrey et Jacques Tran-Van. Nous faisons dans ce numéro 
l'expérience de réduire le texte, ce qui nous permet de vous proposer l’équivalent de 10 pages 
supplémentaires. 


Nous rappelons aux lecteurs qu’ils rpeuvent.commander les disquettes de Pom’s séparément, ainsi que les 
numéros antérieurs. Nous approchons cependant de la rupture de stock sur le numéro 1, dont plus de 2 000 
exemplaires ont été vendus avant la fin du mois d’avril. 


Hervé Thiriez 
Rédacteur en chef 


Directeur de la publication — rédacteur en chef : Hervé Thiriez — Siège social : Editions MEV — 45, rue Lamartine — 78000 Versailles 
— Rédaction et abonnements : 59, bd de Glatigny — 78000 Versailles — Tél (3) 918.13.07 — Régie publicitaire . Force 7 — 41, rue de 
la Grange-aux-Belles — 75483 Paris Cedex 10 — Tél {1} 238.66.10 — Diffusion auprès des boutiques informatiques et libroiries : 
Editions du PSI — 41-51, rue Jacquard — B.P. 86 — Tél. (6) 007.59.31. 
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Communiquez grâce au format DIF 


La tentation est grande, dès que l'on peut 
amener un gros ordinateur à communiquer avec 
un ordinateur individuel, de transférer des 
fichiers entre ces deux matériels, afin par 
exemple de profiter des nombreux programmes 
disponibles sur l'ordinateur individuel. 
Ainsi, n'est-ii pas possible d'interroger un 
fichier gérêè par un gros ordinateur pour le 
traiter à l'aide d'un programme de calcul 
(Visicalc), de gestion de base de données (DB 
Master) ou d'édition de graphiques 
(Visiplot), à titre d'exemples ? 

En fait, cela est plus facile qu'il n'y 
parait a priori. Il faut d'abord réussir à 
établir la commmication de façon à pouvoir 
créer le fichier sur disquette. suite, il 
suffit de mettre les données sous un format 
qui les rende accesibles à des programmes 
tels que ceux cités plus haut. lLh format 
unique suffit pour atteindre cet objectif, le 
format DIF. 

1. Le transfert de l'ordinateur central vers 


l'Apple 


La solution à 
l'équipement 
central. 


ce problème est spécifique de 
jouant le rôle d'ordinateur 


Le cas simple est celui d'un ordinateur muni 
d'une interface RS 232. Du côté de l'Apple, 
la communication s'effectue au moyen d'une 
carte de communication. Un logiciel de 
communication comme VISITERM permet alors de 
saisir les données dans un fichier. 


été confrontés à un autre cas, 
la communication avec un ordinateur 
DPS. Ce matériel est prévu pour 
seulement en relation avec des 
I1 faut alors que l'Apple se 
son égard exactement comme un 
Nous avons pour cela ajouté à notre 
carte de communication spéciale 
fabriquée par SOFRIG. Deux courts programmes 
(ui pour le 61 DPS et un pour l'Apple) 
permettent de créer un fichier séquentiel en 
caractères ASCII. 


2. Communiquer sans programmer avec Visicalc 
et DB Master 


Nous avons 
celui de 
CII-HB 61 
fonctionner 
terminaux. 
comporte à 
terminal. 
Apple une 


La société Personal Software a défini un 
format de fichier séquentiel, dont le but est 
de servir de norme de communication entre des 
prœrammes différents. Sans aucune program- 
mation, des programmes utilisant le format 
DIF peuvent échanger des données à loisir. 

Ce format est appelé DIF, Data Interchange 
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il est accepté par les programmes de 
Personal Software ainsi que par ceux de 
Stoneware, la société qui a proœuit le DB 
Master. La description détaillée des normes 
du format DIF se trouve dans les manuels de 
Visicalc et DB Master; nous y renvoyons le 
lecteur. Le programme que nous présentons 
ci-dessous s'inspire très largement du modèle 
de programme CREATING À DIF FILE. 

Pour traduire le fichier issu de 
l'ordinateur, nous le recopions préalablement 
dans un tableau chargé en mémoire centrale. 
Cette méthode ne convient qu'au transfert de 
petits fichiers. Dans le cas de fichiers 
importants, il faudra mettre dans le format 
DIF les enregistrements les uns après les 


autres. 
Le tableau obtenu 


en un fichier de 


Format ; 


ainsi est ensuite traduit 
format DIF. Ce format 
comporte un chapeau (header) qui décrit la 
structure du fichier, notamment le nombre 
d'enregistrements (vectors) et de rubriques 
(tuples) par enregistrement. 

Ensuite, chaque début d'enregistrement est 
signalé par "BOT" et, pour chaque rubrique 
d'un enregistrement: 

a) quand la rubrique est numérique, il faut 
un code “O", suivi de la valeur numérique et 
de la lettre "V'; 

b) quand Ia rubrique est alphanumérique, on 
doit avoir un code ‘“1", suivi de la valeur 
"O" et de la chaîne. 


3- in aspect des relations entre ordinateur 
recueillies sur un ordinateur 
être manipulées à volonté 
sans mobiliser l'ordinateur central. Elles 
peuvent être traitées et/ou complétées 
localement puisque des lœæiciels tels que DB 
Master savent fusionner des données 
d'origines variées (en utilisant un loœæiciel 
compiémentaire, le Utility Pack). 

Toutefois, la perspective la plus 
intéressante me parait être l'utilisation de 
l'ordinateur individuel pour la manipulation 
des données et la mise en forme de textes ou 
de graphiques, le stockage des données étant 
pris en charge par l'ordinateur principal. 

La grande diffusion des logiciels pour 
micro-ordinateurs les rend accessibles à un 
coût modéré. Ceci conduira à mon avis à un 
partage des tâches entre grosses et petites 
machines: l'ordinateur individuel servira à 
manipuler les données à l'échelon individuel, 
selon les besoins spécifiques d'un 
utilisateur. I1 devient ainsi le support 
d'une expression personnelle. 


Les données 
individuel peuvent 
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NDLR - Les utilisateurs de Visicale 16 120 INFUT ‘NB DE RUBRIQUES '";RX%x 
secteurs doivent consulter le numéro de leur 
version Visicalc, qui apparait lors du boot. 130 D$ = CHR$S (4) 


Si celui-ci est "193B0", il faut essayer de 140 OF$ D$ + "OFEN'" + F$ 
la faire remplacer par une bonne version. En 150 RD$ D$ + "READ'" + F$ 
effet, ii Y a des bogues dans cette version, 160 CL$ D$ + "CLOSE" + F$ 
dont le pire est que la sauvegarde d'un 170 DIM N$CNX,R24) 

fichier DIF à partir de Visicalc peut rendre 180 PRINT OP$: PRINT RD$ 


la disquette illisible; pour couronner le 190 FOR I = 1 TO NX 


tout, ce phénomène est aléatoire. Attention ! 200 FOR J = 1 TO RX 
210 INPUT NS$CI - 1;:4J — 1) 
1LIST 220 NEXT 
230 NEXT I 
10 REM CETTE MAQUETTE 240 PRINT CL$ 
20 REM TRADUIT UN FICHIER ASCII 250 REM  -—-------——— 
SEQUENTIEL ———-——- 
39 REM RECU FAR EX, D'UN 61 DPS 260 REM -TRADUCTION DU TABLEAU 
270 REM -EN UN NOUVEAU FICHIER 
40 REM ‘EN UN FICHIER -DIF- 280 REM -LE FROGRAMME UTILISE 
50 REM :<DATA INTERCHANGE FORMAT 290 REM LE NOM DU FICHIER 
> 300 REM LE NB DE VECTEURS 
60 REM %<REGISTRED TRADE MARK> 310 REM (ENREGISTREMENTS) 
70 REM : {FERSONNAL SOFTHARE> 320 REM LE NB DE TUPLES 
80 REM 330 REM (RUBRIQUES) 
| 90 REM $LE FROGRAMME COPIE LE FI 340 REM LE TYPE DES DONNEES 
CHIER DANS UN TABLEAU 350 REM xTYPE 0 = NUMERIQUE 
100 INPUT ‘NOM DU FICHIER À LIRE 340 REM xXTYPE 1 = CHAINE 
5 "35F$ 370 REM 
110 INPUT "NB D’'ENREGISTREMENTS 
s "SNX Suite ——> 


A TRAVERS LA PRESSE APPLE DECHAINEE 


La Pomme d'Or revient ce mois-ci à Henry 
Roberts qui répond aux questions des lecteurs 
de CALL-A,.P.P.L.E,. dans une rubrique inti- 
tulée APPLE DOCTOR (numéro d'octobre 1981). 
Nous traduisons ... 


Question : On ne parle que du Pascal un peu 
partout. De quoi s'agit-it et pourquoi tout 
cet interêt? Que peut-il faire que le BASIC 
ne peut pas? 


Réponse : Le Pascal tire son nom d'un 
mathématicien Suisse, nommé Blais Pascal 
(sic) qui vivait il y a une centaine d'an- 
nées. On n'a jamais pu me fournir la raison 
de ce choix, alors que Pascal est mort bien 
avant que le premier ordinateur ne soit 
construit! 


NE S'AGIT-IL PAS PLUTOT D'UN MOINE BELGE DE 
LA FIN DU MOYEN AGE QUI, LE PREMIER, A DIT 
SON CHAPELET SUR UNE MACHINE DE WOZNIAC! 











PRINT "NOM DU FICHIER DIF A 
CREER * " 

REM -LE FROGRAMME SAISIT LE 
NOM DU FICHIER 

INPUT F$ 


OP$ = D$ + "OPEN" + F$ 
RD$ = D$ + "READ" + F$ 
CL$ = D$ + "CLOSE" + F$ 
WT$ = D$ + “HWRITE" + F$ 
FRINT OF$ 
REM -PFUIS SAISIT LE NB D’ENR 
EGISTREMENTS 
REM DANS LA VARIABLE NV 
NU = NZ 
REM -ET LE NB OE TUPFLES 
RKEM DANS LA VARIABLE NT 
NT = RK4 
REM -ET ECRIT LE <DIF HEADER 
GOSUE 800 
REM -FUIS SAISIT LE TYFE DE 


CHAQUE DONNEE 
DIM TYZX(NT) 


FOR I = 0 TO NT - 1 
PRINT "O=NUM  1=CHAINE" 
PRINT "LE TYFE DE LA RUBRIQU 


EMMÉE + 1% EST 3" 
INPUT TYX(I) 


NEXT I 
FOR I = 1 TO NV 
REM -ECRIT LE DEBUT D'UN TUF 
LE 
T= -1:V = 0:S$ = "BOT" 
GOSUB 910 
KEM -RECHERCHE CHAQUE DONNEE 
FOR J = 1 TO NT 
T = TY£(J'- 
IF T = 0 THEN V = VAL CN$(I 
- ds —- 1)95S$ = "VU" 





IF T = 1 THEN V = 0:S$ = 
Dent J= 19 

REM: “ET LÉEBKIT 

GOSUB 910 

NEXT J 

NEXT I 

REM -FUIS ECRIT FIN DES DONN 

EES 

T= -1iV= 
GOSUE 910 

FRINT CL$ 

PRINT "FIN DE LA CREATION DU 
FICHIER DIF ";F$ 

STOF 

REM -FROCEDURE D’ECRITURE DU 
<DIF HEADER> 

PRINT HT$ 

PRINT "TABLE": 

GOSUE 880 

PRINT #“TUPFLES": 

T: GOSUB 880 


N$( 


0%S$ = *“EOD" 


PRINT “0,1: 


PRINT "0,'";$;N 


PRINT "VECTORS": PRINT “0,"; 

NV: GOSUE 880 

PRINT "DATA": PRINT "0,0": 

GOSUE 880 

PRINT D$ 

RETURN 

REM -PROCEDURE D’ECRITURE DE 
"(CHAINE VIDE) 

PRINT CHR$ (34); CHR$ (34) 

RETURN 

REM -PROCEDURE D’ECRITURE DE 

S DONNEES 

PRINT HT$ 

PRINT Ti","3u 

PRINT S$ 

PRINT D$ 

RETURN 

END 
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Un programme 


de TRACE sélective 





d'obtenir la trace 
d'instructions d'un 
Pour rendre ce 
aussi simple et aussi court que 
les sous-routines moniteur et DOS 
utilisées très souvent. Le corps du 
(la sous-routine STEP) est 
identique à celui du moniteur de 
II avec BASIC entier en ROM. Ce 
exige un Apple A8K; il est 
en mode moniteur ou en mode 


Ce 
sélective 
programme 
programme 
possible, 
ont été 
programme 
pratiquement 
l'Apple 
programme 
utilisable 
direct. 


prog ramme permet 
d'une série 
assembleur. 


Utilisation du programme 


ce programme, la commande 
a été modifiée en une commande 
cette commande, pour ne pas être 
avec la ‘commande BASIC, doit être 
du nom du programme à tracer et 
éventuellement du numéro du drive, de 
l'adresse de départ du trace et de l'adresse 
finale du trace. La syntaxe est la suivante : 
TRACE nomprogramme(,Dx, Rad, Baf ) 
chacune des informations entre paranthèses 
étant facultative. Si le numéro de drive est 
absent, le drive précédemment utilisé sera 
oris par défaut. Si l'adresse de départ du 
trace est omise, l'adresse de début de 
»rogramme sera prise par défaut. Et enfin, si 
l'adresse de fin de trace est omise, 
l'adresse de fin de programme sera prise par 
défaut. Ces données numériques peuvent être 
données sous forme décimale ou hexadécimale; 
dans ce dernier cas, elles doivent être 
précédées du signe f. 


l'appel de 
DOS 


Pour 
CHAIN du 
TRACE; 
confondue 
suivie 


Les modifications du DOS et le chargement du 
programme de TRACE sont faites par le 
programme PRTR. Quand vous en avez terminé 
avec le programme TRACE, je vous conseille de 
rebooter le DOS, car certains paramètres 
auront été modifiés, et la commande CHAIN 
supprimée. 


Analyse du programme 


on tape "TRACE nomprogramme, R$ad,Bf$af"; 
nomprogramme est mis en adresse AA75 et 
suivantes, ad en AA6E et AA6F, af en AA7O et 
AA71. Les premières instructions sauvent les 
registres et chargent le programme en mémoire 
centrale, par appel aux sous-routines 
moniteur SAVE (FFHA) et DOS BLOAD (A35D). 


Quand 


L'adresse 
calculée, 


de fin de programme est alors 
et les adresses de début et fin de 


si elles ont été 
dans le cas 


verifiées, 
initialisées 


soit 
soit 


trace sont 
fournies, 
contraire, 
Le de 
alors. 
elle 


programme trace proprement dit débute 

Si une instruction doit être tracée, 
est tout d'abord désassemblée à l'aide 
de la sous-routine moniteur INSDSP (F8D0), 
sinon seule la longueur de l'instruction est 
calculée par la sous-routine INSDS2 (F88C); 
cette longueur est conservée à l'adresse ?F 
par le moniteur. Ensuite, les instructions à 
exécuter, c'est-à-dire les instructions qui 
ne correspondent pas à des sauts, des 
branchements ou des retours, sont exécutées 
après restauration des registres grâce à la 
sous-routine RESTORE (FF3F), et les 
différents registres sont édités par REGDSP 
(FAD7). Le programme donne de plus la 
décomposition du registre d'état pour que 
l'utilisateur puisse suivre plus facilement 
le déroulement du programme. 


Les instructions de saut et de retour donnent 
simplement lieu à un calcul de l'adresse de 
l'instruction suivante. Les instructions de 
branchement sont transformées pour se 
brancher soit sur BREL si le test est 
positif, soit sur NBREL dans le cas 
contraire. Dans tous les cas, l'adresse de la 
prochaine instruction à exécuter est alors 
calculée, à l'aide des différentes 
sous-routines moniteur PCADJ, une fois les 


registres conservés. 


Th 
l'exécution 

touche ESC. 
le programme, 


est possible de suspendre à tout moment 

du programme en appuyant sur la 
Pour interrompre définitivement 
il faut taper CONTROL-C. 


Limites du programme 


l'utilisation des sous-routines 
moniteur SAVE et RESTORE modifie les adresses 
48-49, cela interdit de tracer des programmes 
faisant appel au DOS, qui les utilise. 


Comme 


on ne peut tracer que des 
du programme lui-même et non des 
en ROM par exemple. Nous 
soin au lecteur de modifier le 
pour éliminer la première 
Quant à la seconde, dans certains 
cas, elle ne peut être éliminée. Pour s'en 
persuader, le lecteur pourra regarder ce qui 
se passe quand on veut tracer la sous-routine 

de sortie écran COUT ... 
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D'autre part, 
instructions 
instructions 
laissons le 
programme 
limitation. 
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10 HOME : FRINT "LA COMMANDE CHA 
IN OU DOS EST CHANGEE EN"° FRINT 
" UNE NOUVELLE COMMANDE TRAC 
E"+ FRINT 

20 FRINT "BLOAD B,TR": CALL 2159 


SOURCE FILES TRACE 


0083: 1 CONTRC EQU $83 x CONTROL-C 

009B: 2 ESC EQU $9B x ESCAFE 

03EA: 3 RKECON EQU $3EA 

FF 4A : 4 SAVE EQU $FF4A x SAUVEGARDE DES REGISTRES 
FF3F: 9 RESTORE EQU $FF3F x RESTAURATION DES REGISTRES : 
F8D0* 6 INSTDSF EQU $FBDO x DESASSEMELE 1 INSTRUCTION 
002C: 7 KTNL EAU $2C 

02D: 8 RKTNH EQU $2D | 
002F*? 9 LENGTH EQU $2F x LONGUEUR DE L'’INSTRUCTION 
1048: 10 STATUS EQU $48 

003À: 11 FCL EQU  $34A x COMFTEUR DE FROGRAMME 
00SE:: 12 FCH EQU $3E x À TRACER 

AA72: 13 DFG EQU $AA72 

AÀ6D : 14 LFG EQU $AA6O 

AAGE à 15 OTR EQU $AAGE x DEBUT DE TRACE 

AA7 0% 16 FTK EAU $A4A70 x FIN DE TRACE 

FC AB: 17 DELAY EQU $FCAB x ROUTINES 

F948: 18 FKRELNK EQU $F948 x CLASSIQUES 

FOED : 19 COUT EAU  $FDED x VOIR REF, 

FD8E 20 CROUT EQU $FD8E x MANUAL 

C000: 21 KBD EQU $C000 

CU010: 22 KBOSTRB EQU $C010 

FF69: 23 MON EQU $FF69 x RETOUR AU MONITEUR 

F880C : 24 INSDS2 EQU $F88c 

F8B2: 25 INSDSI EQU $F882 

FAD7 à 26 REGDSF  EQU $FAD7 x IMFRESSION 

FADA: 27 REGDSFi EQU $FADA x DES REGISTRES 

F954 : 28 FCADJ2 EQU $F954 x CALCUL D'’ADRESSES 

F956: 29 FCADJ3 EQU $F956 x DU FROGRAMME 

FCS58 % 30 HOME EQU $FC58 

A3S5D: 31 DLOAD EQU $A35D x ADRESSE SS-ROUTINE ELOAD 
AASF : 32 CDOF EQU $AASF x ADRESSE CODE INST, DOS 
0032: 33 CLOAD EQU $32 x 2XCODE DOS BLOAD 

F5 3 NEXT OBJECT FILE NAME IS TRACE,.DBJO0 

9400: 34 ORKG $9400 

9400%20 4À FF 35 USR SAVE 

9403:20 58 FC 36 JSK HOME 

9406:A9 32 37 LDA  £CLDAD 

9408:8D 5F AA 38 STA CDDF 

940B:20 S5D A3 39 JSK DLDAD x CHARGEMENT OÙ FROGRAMME ? 
940E AD é6û AA 40 LDA LFG x CALCUL 

9411:18 4i CLC x DE 

9412%6D 72 AA 42 AOC  DFG x L'’ADRESSE h 
9415:8D D9 95 43 STA FFI x DE 

9418:AD 61 AA 44 LDA LFG+1 ‘x FIN 

9415:6D 73 AA 45 AOC DFG+1 x OÙ 

941E:8D DA 95 46 STA FFI+1 x FROGRAMME 

94215AD 73 AA 47 LDA DFG+1 x VERIFICATION 

9424%CD 6F AA 48 CMF DTR+1 x DES ADRESSES 

9427:90 16 49 BCC  ADFIO x DE DEBUT ET 

9429:F0 09 90 BER  SUIVER x FIN DE TRACE 

942E:80 6F AA 91 STA DTKR+1 x ET VALEURS 
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942E A0 
9431:4C 
9434 A0 
9437:C0 
9434 :90 
943C :8D 
943F : 4C 
9442: AD 
9445 8D 
9448 : AD 
94 4E ° 8D 
944E :4C 
9451 :AD 
9454:F0 
9456:CD 
945990 
945E:F 0 
945D :E0 
945F * AD 
9462:C0 
9465:E0 
9467:A0 
946A:85 
9460 AD 
946F:85 
9471:20 
9474:20 
9477:B0 
9479:20 
947C:20 
947F3:4C 
9482:A2 
9484:A1 
9486:20 
9489:20 
948C:4C 
948F: 

948F °A9 
9491:20 
949420 
949710 
9499 A0 
949C:C9 
949E : DO 
9440 :2C 
9443:2C 
94h6:10 
9448: A0 
JAAE: + 2C 
94AE :C9 
94B0 :D0 
9462:4C 
946560 
94B6: 

94B6: A5 
9468 C0 
94BE :90 
94BD DO 
94BF' AS 
94C1:C0 


© NN O0 C1 ON 





SUIVER 


MOD? 
AOFI0 
OEF2 


VERFIN 


SUIFIN 


TKRO 


F'REEX 


EXEC 


xx SOUS 


WHAIT 


WAITI1 





FROGRAMME VERIFICATION À TRACER DU NON 


DFG x FAR DEFAUT 
MDD2 x EVENTUELLES 
DFG x DE 47 À 72 
DTR 

ADFI0 

OTR 

VERFIN 

PFI+1 

FTR+1 

FFI 

FTR 

TRO 

FTR+1 

OEF2 

PFI+1 

SUIFIN 

SUIFIN 

OEF2 

FTR 

FFI 

OEF2 

OF'G 

FCL 

OFCG+1 X INITIALISATION DU FROGRAMME 
FCH 

HAITI 

SITR 

FREEX 

WAIT 

INSTOSF 

EXEC 

£00 

(FCL; X) 

INSDS2 

STEF 

TRACE 


FROGRAMME DE SAISIE CLAVIER ET DELAY 


£203 
DELA Y 
KE:D 
WRKTS 
KBD 
£ESC 
WRT S0 
KEOSTREB 
KBD 

W2 

KBD 
KBDSTRE 
£CONTRC 
WRTS 
SORTIE 










94C4:90 























































94Cé6: A5 3B 113 SITR2Z  LDA FCH 

94C8:CD 71 AA 114 CMP FTR+1 

94CB:90 0E 115 BCC OUI 

94CD:D0 10 116 BNE NON 

94CF:AS 3A 117 LDA FCL 

94D1:CD 70 AA 118 CMF FTR 

94D4:90 02 119 BCC OUI 

94D6:D0 07 120 BNE NON 

94D8 :18 121 OUI CLC 

94D9:A9 00 122 LDA £00 

94DE:8D CF 95 123 STA INDIC 

94DE :60 124 RTS 

94DF : 38 125 NON SEC 
94E0:A9 01 126 LDA £o1 

94E2:8D CF 95 127 STA INDIC 

94E5:60 128 RTS 

94Eé6: 129 xx ANALYSE ET EXECUTION DE L'’INSTRUCTION 
94E6:68 130 STEF FLA x NOUS REFRENONS 
94E7:85 2C 131 STA RTNL x ICI LE STEF 

94E9:68 132 FLA x DU MONITEUR 

94EA:85 2D 133 STA RTNH x DE L'AFFLE II 

94EC:A9 EA 134 LDA £$EA x BASIC INTEGER 

94EE:8D Cé 95 135 STA INSTR x SANS AUTOSTART 
94F1:8D C7 95 136 STA  INSTR+1 

94F4:8D C8 95 137 STA INSTR+Z 

94F7:A2 00 138 LDX £00 

94F9°:A1 3A 139 LDA (FCL,X) J8LOAD CHARGE .0BJ,499000 
94FB:F0 2C 140 BER BREAK ACALL1S1 

94FD:A4 2F 141 LDY LENGTH 

94FF:C9 20 142 CMF £$20 

9501:F0 50 143 BEQ JSF Tara 

9503:C9 60 144 CMF  £$60 9000- A9 00 80 Fé 03 A9 98 80 
9505:F0 3C 145 BEQ RETOUR HAE DEEE 
9507%C9 4C 146 CMF. £$4C vois. “ " es “ ji 4 A 
9509:F0 53 147 BEQ JUMF L o1 90 
950B:C9 éc 148 CHF £$6C Non Ve 4e PAU NEIL 26 
950D:F0 50 149 BER  INJUMF 2938- C9 22 00 28 A9 06 85 C1 
950F:C9 40 150 CHF £$40 9048- C9 22 FO 0C 09 80 99 73 
Ro de M Me #58 A? EF 65 CI 20 BA 00 C0 
9513! 1 5 £ £ 5 C1 20€ 
9515:49 14 153 EOR £$14 MO. 89 48 25 70 DD 24 14 28 
E : ° E ' ri A2 ÀI 20 F5 9C 40 
PE 0e 1H HE NN. DA LE 83 07 0 65 68 28 
951B:B1 34 156 ECIN LDA (FCL),Y 9066-61 1E DD 0S 42 06 4€ 04 
951D:99 Cé 95 157 RELAT  STA INSTR,Y FoneL CS 01 JE 0 ar te ŒE LE 
EU + ee Mn. AA 88 08 28 A8 88 03 D 
9521:10 F8 159 BFL ECIN ï 

9523:20 3F FF 160 USR  RESTORE mal DE ele ERA ! 
9526:4C Cé 95 161 JMF  INSTR EE A EN LEE 
9529220 82 F8 162 EREAK  JSR INSDS1 A AE EE TR EL 
952C:20 DA FA 163 JUSR REGDSFI 9008- 8D F4 87 A9 10 80 ED 67 | 
952F:20 EA 03 164 SORTIE JSR RECON rl LA AT ET 
RS ENT re M La 49 23 8 08 2e 28 08 
9534: A2 03 166 LDX £03 8- ñ 
9536:9D 6E AA 167 SORO STA OTR,X ARE UE TEAM AE 
9539:CA 168 DEX 9110- E9 E0 1E D9 FO B9 9C B3 
9534 :10 FA 169 BFL  SORDO 

953C:4C 69 FF 170 JMF' MON 

953F ! 18 171 XRTI CRE 

954068 172 FLA > 
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9541:85 
9543568 
9544:85 
9546:68 
9547385 
9549:A5 
9546: 20 
954E:84 
9550:18 
9551:90 
9553318 
9554: 20 
95573 AÀ 
9558:98 
9559348 
955A:8À 
955B:48 
9550: A0 
955E:18 
9595F °B1 
9561:AÀ 
9562:88 
9563:E1 
9565:86 
9567385 
9569:E0 
956B: A5 
956D:48 
956E: AS 
9570:48 
957 1:A0 
957 4:D0 
9576320 
9579320 
957C%60 
957D: 

957D:20 
9580: À5 
9582:80 
9585: A0 
9587:B9 
958À:C9 
958C:D0 
958E : 4E 
9591:4C 
9594320 
95973A9 
9599320 
959C34E 
959F 3:90 
95A1:A9 
9543: 4C 
9546: A9 
9548:20 
95AB:20 
9SAE : 88 
95AF :D0 
9581:60 
95B2:18 
95B3:A0 
9565:B1 


RETOUR 


FCINC2 
FCINC3 


JUMF 
INJUMF 


NEWFCL 


FASEC 
xx SOUS 
ECRFIN 


JSR 
STY 
CLC 
BCC 
CLC 
JSR 
TAX 
TYA 
FHA 
TXA 
FHA 
LDY 
CLC 
L.DA 
TAX 
DEY 
LDA 
STX 
STA 
BCS 
LDA 
FHA 
LDA 
FHA 
LDA 
BNE 
JSK 
JSK 
RTS 


STATUS 
FCL 
PCH 
LENGTH 
FCADJ3 
FCH 
NEWFCL 


FCADJ2 


£$02 


(FCL),Y 


(FCL),Y 


ECRFIN 


FROGRAMME ECITURE COMFLEMENTAIRE 


JSR 
LDA 
STA 
LDY 
LDA 
CMF 
BNE 
LSR 
JMF 
JSR 
LDA 
JSR 
LSR 
BCC 
LDA 
JMF 
LDA 
JSR 
JSR 


BNE 
RTS 





x ECRITURE 


DETAILLEE 


DES 


REGISTRES 


FRELNK 
F00 
X BRANCHEMENT 


£$01 x RELATIF 
CFCL),Y 
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95E7:20 56 F9 234 JSR FCADJ3 x CALCUL DE LA NOUVELLE ADRESSE 
95EA:85 3A 235 STA FCL 

95EC:98 236 TYA 

95ED: 38 237 SEC 

958E:80 87 238 ECS FCINC2 

95C0:20 44 FF 239 NEREL UJSR SAVE x FAS DE PROELEME 

95C3:38 240 SEC X SAUVEGARDE LES REGISTRES 

95C4:E0 83 241 ECS FCINC3 x ET CALCULE LA PROCHAINE ADRESSE 

95Cé EA 242 INSTR NOF x FLACE 

95C74EA 243 NOF' x DE L'’INSTRUCTION 

95C8:EA 244 NOF x À TRACER 

95C9:4C C0 95 245 UJMF  NEREL 

95CC:4C E2 95 246 UMF  EREL | 
95CF:00 247 INDIC DFE 00 

95D0:00 248 TAMFON DFE 00 

95D1:CE Dé AD 249 TAE ASC ‘’NV-EDIZC | 
95D4:C2 C4 C9 ) 
957 :DA C3 

95)9:600 00 250 FFI DFE 00,00 


xxx SUCCESSFUL ASSEMELY: NO ERRORS 


SOURCE FILE* MAJDOS 


0073: 1 HIMEM EQU $73 

9400: 2 DEEUT EQU $9400 

9D 26: 3 AFTR EQU $9D26 

A893: 4 LABE EAU $A893 

A968: 9 FH EQU $A968 

A96C: 6 EH EQU $A96C 

A911: 7 FARTR EQU $A91i 

TTTTT NEXT OEJECT FILE NAME IS MAJDOS,. OEJ0 

086F: 8 ORG $86F 

186F:A9 00 9 LDA  +>DEEUT 

0871:85 73 10 STA HIMEM 

0873:A9 94 1i LDA  +<DEEUT 

087585 74 12 STA HIMEM+1 ! 
0877:38 13 SEC 

0878:A5 73 14 LDA HIMEM | 
087A:E9 01 15 SEC +01 | 
187C:8D 26 910 16 STA  AFTR 

187F:AS5 74 17 LDA HIMEM+1 

0881:E9 00 18 SEC +00 

0883:8D 27 9D 19 STA  AF'TR+i 

0886:A2 04 20 LDX +04 

0888:8D A4 08 21 LOOF LDA TRAC,X 

088B:90 93 A8 22 STA LAEE, X 

088E* CA 23 OEX 

0688F:10 F7 24 EFL LOOF ' 
0891:A9 FF 29 LOÀA +$FF 

0893:8D 68 A9 26 STA FH 

0896: 8D 6C A9 27 STA EH ! 
0899:A9 AD 28 LDA +$A0 | 
089B:8D 11 A9 29 STA FARTR 

189E:A9 76 30 LDA +#+$76 

18A0:8D 12 A9 31 STA FARTR+1 

1843: 60 32 RTS 

184A4:54 52 41 33 TRAC OCI ‘TRACE 

1847:43 CS 

xxx SUCCESSFUL ASSEMELY: NO ERRORS 
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Un Apple à la clinique 








1. Description générale 





Pom's a rendu visite au professeur David 
Lewin, qui avait été désigné en 1968 par le 
congrès des gynécologues de langue française 


pour voir comment on pouvait utiliser un 
ordinateur dans la gestion de dossiers 
médicaux en obstétrique et gynécologie. Le 
professeur Lewin a eu la gentillesse de nous 
expliquer comment il s'y était pris, et 
pourquoi il utilise maintenant un Apple à cet 
effet. 


Le problème essentiel soulevé par la gestion 
informatique de dossiers médicaux est que 
ceux-ci comportent potentiellement une grande 
masse et une grande variété d'informations. 
En outre, pour tout simplifier, ces 
informations sont de types et de qualité très 
diverses (par exemple, comment mémorise-t-on 
une radio ?). Vouloir mémoriser la totalité 
des informations relatives à un patient est 
très difficilement envisageable, d'autant 
qu'un dossier s'enrichit en permanence de 
données chronologiques. En outre, certaines 
données sont très longues, par exemple un 
électro-cardiogramme de 2} heures ! 


IT faut donc choisir de mémoriser une 
quantité limitée d'informations, sinon il 
faudrait compter en méga-octets par patient. 


2. L'obstétrique 


Dans une première étape, le professeur Lewin 
choisit de s'attaquer au seul problème de 
l'obstétrique. L'avantage, dans ce cas 


particulier, est que l'horizon est limité à 
une durée inférieure à une année : iln'y a 
donc pas cumul permanent pour chaque 


patiente. Un autre avantage de l'obstétrique 
est qu'il existait depuis déjà fort longtemps 
une fiche de renseignements quantitatifs qui 


était remplie habituellement de façon 
manuelle. I1 a donc suffi d'analyser cette 
fiche en détail, et de concevoir la meilleure 
façon de la formaliser pour obtenir le dessin 


de l'enregistrement à 
patiente. 


prévoir pour chaque 


Le premier programme fut écrit en Fortran sur 
un CII 10070; il tournait en 5 heures un 
quart, et comportait 5.500 instructions. Dès 


la fin de la première année, il fallut en 
réécrire une bonne partie à cause d'un 
changement de système d'exploitation ! Le 
prœramme, qui marchait parfaitement 
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antérieurement, se mettait à éclater avec un 
fatidique JOB ABORTED particulièrement gênant 
dans ce type d'application ... 

Une seconde 
un  IRIS80, 


version vit le jour en Cobol sur 
suivie par une troisième version 
en GAP2 sur IBM32. Le professeur Lewin 
s'était mis à la programmation et a réalisé 
ces deux dernières versions, la première avec 
les conseils d'Alain Berdugo. Désirant avoir 
un matériel sous la main, il se mit à 
l'Apple, et écrivit la dernière version en 


Basic et langage machine (sans assembleur, 
s'il vous plaît). 
Le programme tourne maintenant parfaitement 


et parvient à enregistrer sur une disquette 
en DOS 3.3 jusqu'à 1000 dossiers, ce qui est 


une performance. M effet, un dossier 
comporte le nom et les coordonnées de la 
patiente, plus 150 informations. Or, la 


disquette 16 secteurs ne dispose même pas de 
150 octets par patiente, si l'on désire en 
gérer 1000 ! Ceci est devenu possible par une 
recodification complète des informations. 


d'autres obstétriciens sont 
équipés de ce système clés-en-main 


Une dizaine 
maintenant 


grâce au professeur Lewin. Le programme 
permet la saisie, l'archivage, la recherche, 
la mise à jour et certaines analyses 
statistiques. 

Depuis 1969, les fiches d'inscription 
manuelles sont toutes regroupées et 
incorporées dans une base de données qui est 


en fait la plus importante base de données en 
obstétrique du monde, avec 600.000 dossiers. 
Pour le moment, les analyses effectuées sur 
cette base de données ne sont pas encore 
réalisées sur matériel Apple! Par contre, les 
fiches provenant des praticiens déjà équipés 


par le professeur Lewin sont regroupées en 
plus dans un fichier particulier, dont on 
sait qu'il est encore plus fiable, puisque le 


programme de saisie réalise un certain nombre 
de tests et filtre les données. Ce 
sous-fichier pourra être traité et analysé 


avec un Apple équipé d'un disque. 


3. La gynécologie 


La gynécologie représente un problème de 


toute autre nature, car il faut alors, comme 
en médecine classique, garder le dossier 
d'une patiente de façon permanente. En outre, 


contrairement au cas de 
données 


l'obstétrique, les 
intéressantes ne 


sont pas en 
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dominance des informations quantitatives il 
y a de nombreuses données qualitatives que 
l'on ne peut se permettre d'ignorer. 

La question qui se posait alors était donc la 


suivante : faut-il mettre en place un fichier 
mixte avec des composantes fermées (structure 
fixe) et ouvertes (possibilité de texte 
libre) ? Faut-il définir comme dans le 
premier cas un fichier fermé, ou au contraire 
définir un fichier ouvert ? Dans tous les cas 
rencontrés par le professeur Lewin, en 
matière d'informatisation de dossiers 


médicaux, les fichiers de structure mixte ont 
abouti à des échecs. Un fichier ouvert a par 
conséquent été défini, avec pour seule partie 
fermée la partie signalétique, dont on peut 
en effet difficilement se passer. 


Le programme résultant est donc une sorte de 
base de données, dans laquelle l'utilisateur 
définit ses propres rubriques. A l'intérieur 
de chacune d'entre elles, il peut utiliser 


des mots-clés qu'il définit lui-même, avec un 
glossaire de 1000 mots au maximum. Le 
programme se charge de la recherche des 
dossiers dans lesquels se trouvent des 
conjonctions données de mots-clés, ou des 
mots-clés donnés. À part cela, toutes les 
fonctions habituelles d'une gestion de 
fichier sont disponibles. Sur le même 
principe, un programme de gestion 
bibliographique a d'ailleurs été conçu, comme 


vær'iante du programme de gestion de dossiers 
en gynécologie. 
4. Conclusion 


aspects de gestion de dossier, les 
peuvent apporter en temps 
réel une aide clinique importante. On peut 
grâce à eux interroger le système quand un 
problème délicat se pose, et faire des 
recherches sur les relations entre diverses 
données physiques et de santé, entre des 
problèmes, leurs traitements et les résultats 
statistiques, ... 


Outre les 


deux programmes 


est intéressant dans 
cette expérience, c'est que l'on ait pu 
arriver à effectuer un certain nombre de 
travaux sur un petit matériel, après l'avoir 
fait sur un matériel beaucoup plus puissant. 
C'est le contraire de l'approche courante, 
dans laquelle on a tendance à avoir besoin 
d'un matériei toujours plus puissant. En 
outre, on constate que le professeur Lewin a 
dû se mettre à tout programmer pour pouvoir 
être satisfait du programmeur. Heureusement 
pour les SSCI que ce n'est pas le cas le plus 
fréquent ! 


EM conclusion, ce qui 


Enfin, il faut noter que l'approche fichier 
ouvert est utilisable non seulement dans le 
domaine gynécologique, mais / dans l'ensemble 


de la profession médicale, et même au-delà. 





e opportunité d'utilisation de l'outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l'entreprise 


e formation à l'utilisation de la micro-informatique 
e réalisation de programmes à la demande 


e livraison de systèmes clés en main, avec des progiciels de 


GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse 
L'outr! micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


lo g MG :: Centre La Chäâtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. : (3) 918.13.07 rs 








Pom's n° 4 PEER 
A —— 








Les mémoires de masse 


Sur tout micro-ordinateur, le problème de la 


capacité de stockage se pose toujours tôt ou 
tard, pour une multitude de raisons : 
nécessité de placer un grand nombre de 


proœrammes sur support magnétique, ou de 


mémoriser des fichiers de grande taille. 

Les utilisateurs d'Apple se sont vite rendu 
compte qu'un espace de 140K octets, sur une 
disquette 54 pouces, était vite saturé; 
heureusement, il existe plusieurs façons de 
pallier cette limitation. La moins onéreuse 
est bien entendu de manipuler tel un jongleur 
des disquettes 5è pouces sur un drive unique. 
On investit rapidement dans un second lecteur 
, dui autorise un doublement äâe la capacité 
en ligne et, surtout, facilite grandement les 
copies de disquettes. Au-delà, on passe aux 
mémoires de masse qui sont en général des 
disques de plus grande capacité. Nous vous 
présentons dans cet article les principales 
mémoires de masse disponibles sur le marché 
pour Apple ou équivalents Silex et ITT 2020. 
Notre objectif est ici de présenter les 
principaux supports de stockage éprouvés sur 
le marché français, plutôt que de réaliser un 
dossier complet sur l'ensemble des mémoires 
de masse compatibles avec un Apple. 

On distingue habituellement deux types de 


supports magnétiques de masse : d'un côté les 
disques souples (floppies) de grande 
capacité, de l'adtre les disques durs. 
Analysons les principaux avantages et 


inconvénients de chaque solution. 
Le disque souple (floppy) 


le lecteur de disques souples 
de 55 pouces a l'avantage douteux d'être le 
plus cher par K-octet, avec ses 140K en 
simple face, simple densité. En compensation, 
c'est, après la cassette dont nous ne parlons 
même pas tant son utilité est réduite, le 
matériel de Jecture/écriture de mémoire de 
masse (si l'on peut dire) dont le coût fixe 
est le plus bas. 

Les lecteurs de disques souples 8 pouces, du 
fait de leur diamètre plus important, 
acceptent une capacité de stockage plus 
grande, allant de 256K octets à 1M octet (1 
méga-octet=1.000K), selon qu'il s'agit de 
lecteurs simple ou double face, et selon la 
densité d'enregistrement. Bien que d'un coût 
relativement élevé, ce type de lecteur offre 
un compromis valable entre l'investissement 
et la capacité de stockage. De plus, du fait 


Pour commencer, 


de leur antériorité sur le marché 
professionnel, les disques souples 8 pouces 
sont un standard portable des matériels 








(norme IBM 3740): 
utilisant cette 
de fichiers 


normalisés 
possible, en 
norme, d'opérer des transferts 
d'un ordinateur d'une marque donnéée à un 
ordinateur d'une autre marque. La société 
française Léanord a d'ailleurs pris une place 
prépondérante, avec la gamme des SILDISC, sur 
le marché des disques souples 8 pouces pour 
Apple. L'inconvénient majeur de ces lecteurs 
réside dans leur coût, qui les réserve à une 
clientèle professionnelle. 


professionnels 
sol devient 


Depuis peu, des lecteurs de disques souples 
54 pouces de grande capacité sont proposés 
par IEF, une autre société française. Chacun 


de ces disques, travaillant en double face et 


grande densité, peut stocker 1M octets. Le 
contrôleur IEF supporte deux lecteurs, comme 
le contrôleur Apple, et permet donc de 


disposer de 2M octets en ligne. Ce lecteur 
représente aujourd'hui le meilleur rapport 
investissement/capacité, quel que soit le 
système d'exploitation (SED) utilisé. Il 
exige cependant, et c'est compréhensible, 
l'emploi de disquettes spécialement 
contrelees. 

M conclusion, les disques 
l'avantage de l'interchangeabilité et de la 
transportabilité, en compensation de leur 
capacité réduite par rapport à celle des 
disques durs. 

Les disques durs (hard disks) 


souples offrent 


De conception totalement différente, les 
disques durs ont une très grande capacité de 
stockage, allant jusqu'aux 380M octets 
obtenus chez Micromos avec plusieurs disques 
durs de type Cynthia (fabrication Honeywell). 
Un disque dur représente un investissement 
élevé, mais possède le coût par K-octet le 
plus bas de tous les supports magnétiques. 

Le premier disque dur disponible sur le 


marché Apple fut le célèbre Corvus, de 10M 
octets, distribué en France par Microlæie. 
nnil est partagé en plusieurs volumes 
représentant chacun un équivalent-disquette 


de 140K sous DOS. Par contre, sous Pascal, il 
est capable de gérer des fichiers de toutes 


capacités. Dans sa gamme, Corvus propose 
aujourd'hui des disques durs de 5, 10 et 20M 
octets. 


Les utilisateurs d'un tel disque, scellé sous 
vide dans sa boîte, ont tout de suite saisi 
le risque encouru en cas de destruction 


inopinée d'un gros fichier. Aussi a-t-on 
étudié le problème de la sauvegarde des 
informations sur un autre support. te 
possibilité consiste à recopier sur des 
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disquettes 5 pouces, mais il faut 67 
disquettes et beaucoup de patience pour 
effectuer une sauvegarde complète. En outre,” 


si un fichier est de taille supérieure à 
1Y0K, il faut le découper pour pouvoir le 
sauvegarder, ce qui ne simplifie pas 
l'opération. C'est pourquoi la sauvegarde sur 
magnétoscope est devenue la solution la plus 
fréquente; de plus, le magnétoscope passe 
ainsi au titre des frais professionnels .., 


Le disque dur Cynthia, commercialisé par IEF, 


Microexpansion, Micromos et MIS, est une 
solution élégante à ce problème de 
sauvegarde. On dispose dans une même unité 
d'un disque fixe de #10M octets, et d'un 
disque amovible de même capacité. La 
sauvegarde s'effectuant sur une cartouche 
amovible, plus de problème d'échange de 


fichiers ni de recopie de sécurité. 

Les disques durs disposent en outre d'un 
système de multiplexage qui permet de relier 
plusieurs Apples à un disque donné et de 
réaliser ainsi des applications dans 


lesquelles plusieurs utilisateurs disposant 
chacun de leur poste de travail, accèdent aux 
mêmes fichiers. 


Conclusion 
L'Apple III n'a rien apporté de neuf en 
matière de disques souples. Par contre, 


l'existence du Profile qui apporte 5M octets 
à un prix abordable prouve l'existence du 
besoin des utilisateurs en mémoire de masse. 
On peut simplement regretter que rien n'ait 
été prévu pour la sauvegarde des informations 
stockées sur le Profile: qui a envie de faire 
35 copies de disquettes consécutives, dans le 


pire des cas ? 

On peut penser aujourd'hui que le bon 
compromis réside dans la solution mixte 
souple+dur, avec sauvegarde du disque dur sur 
le disque souple, sous r'éserve que celui ait 
une capacité suffisante comme dans le cas du 
IM otets sur S+ pouces. D'autant que le 


disque dur peut être relié à plusieurs Apples 
ou autres ordinateurs individuels. 


TABLEAU COMPARATIF DES PRINCIPALES MEMOIRES DE MASSE POUR APPLE II-SILEX-ITT 2020 


Caractéristiques Sildisc Sildisc Floppy Corvus Galaxian Cynthia 
Modèle E Modèle F I.E.F. 140 
Constructeurs Léanord Léanord I IEP Micrologie Micro- Micromos 
ou distributeurs Exp.+ MIS + IAEXF" 
Capacité standard E1:2*256K Pets ar 1M octets 5-10-20 2*10M 2*10M 
E2:2*512K F2 2m 2M octets M-octets 
Extensions possibles 2è unité 2è unité 2è unité 2e unité Non Non 
Systèmes d'exploitation 
DOS Oui Oui Oui Oui Non Oui 
Pascal UCSD Oui Oui Oui Oui Non Oui 
CP/M Non Oui Oui Oui Non NC 
M/DOS Non Oui Oui NC Oui Oui 
Support exe" 2#8l MS E Disque 2 disques 2 disques 
2M:2*5"È scellé fixe+amov  fixe+amov 
Compatibilité IBM Non Oui Non Non Non Non 
Taux de transfert 250Kbit/s 500Kbit/s 250Kbit/s NC 920Koct/s 920Koct/s 
Sauvergarde —-— ——- —-- Magnétos. Disque Disque 
Sy.miroir amovible amovible 
Dimensions 1*L*h cms k'736 24 32455181 cf. Apple Selon type 68.50.25 68.50.25 
Poids 15 kgs 18 kgs idem idem 45 kgs 45 kgs 
Prix de base (H.T.) E1:16800F F1:25500F 11: 11000F 36.000 F 59.000 F 59.000 F 
E2 23000F F2 29500F 2M 19000F' 10M octets 
Prix/K-octets (H.T.) E1:32,62F Ft:24,90F 1M:10,74F 3,6F 2,88F 2,88F 
E2:22,46F F2:14,4OF 2M: 9,50F 
Nb Apples connectables 1 1 1 1 à 64 1 à 4 1-16+ 
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Réponse au concours 
16 (22 20) 11 ES 


LIST 
20733 
20734 


CALL -936: TAE 19% VTAE 13 
DEVINETTE= ASC("POMS")x FEEK 
(-1823)/ PFEEK (-1595)xFPO0OMS * 
FOMS 

POKE FEEK (-7782),12: 
FPEEK (-4710),184 
POKE 2069, FEEK ( RND (4096 
)) 

PRINT ‘’FOMS" 

FOKE FOMS,FOMS 

POP 


20735 POKE 


20736 


20737 
20738 
20739 


Nous avons regroupé ici les explications de 
Dominique Devernay (initialement condensées 
en quelques formules lapidaires, jetées sur 
le papier dans l'ivresse de la victoire), et 
celles de J.-F. Duvivier, beaucoup plus 
didactiques (à l'époque de leur rédaction, le 
pauvre J.F.D. croyait être le seul à détenir 
lalMérité. . #). 


* Ligne 20733 : pas de mystère. 


Ligne 20734 : elle attribue à la variable 
DEVINETTE la valeur 215. Eh effet 
ASC(POMS)=ASC( P )= 208 
PEEK(-1823) est une constante, car 
l'adresse -1823 se trouve dans le 
moniteur. De fait, PEEK(-1823)=144 
PEEK(-1595):139 (cf. ci-dessus) 
La variable POMS est égale à O, 
car elle n'a pas encore été utilisée. 
EM conséquence, POMSAPOMS = On0 = 1 
En résumé, DEVINETTE - 208* 144/139*1 = 
215,48 = 215 (on est en INTEGER ). 


20735 $E194 (-7782) et $ED9A 
(-4710) se trouvent en ROM et contiennent 
donc des valeurs constantes (respectivement 
78 et 79). Cette ligne peut donc s'écrire 
POKE 78, 12:POKE 79, 184. Les adresses 78 et 79 
correspondent aux registres servant de 
racines" pour le générateur de nombres 
aléatoires. Si RDKEY n'est pas appelé entre 
temps, RND(4096) donne obligatoirement 2060, 
en raison des valeurs chargées dans les 
registres (12 et 184). 


* Ligne 


* Ligne 20736 : en raison des explications 
ci-dessus, cette ligne équivaut à POKE 
2069,PEEK(2060). Elle modifie la table des 
variables de l'INTEGER, située à partir de 
l'adresse 2048 ($800). Plus précisément 

2060 = adresse de l'octet de poids faible 
de la variable DEVINETTE 

2069 = adresse de l'octet de poids faible 
de la variable POMS. 
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Ceci revient donc à POMS-DEVINETTE. 


# Ligne 20737 
attention, car 
plus délicat. 


sans commentaires. Mais 


nous en arrivons au point le 


20738 
variables 


depuis les manipulations 

de la ligne 20736, la 
vaut 215. Cette ligne effectue 
donc un simple POKE 215,215 soit en 
hexadécimal POKE $D7,$D7. Pour en mesurer la 
portée, il est nécessaire de connaître un peu 
la structure d'une ligne de programme INTEGER 
stockée en mémoire. Chaque ligne est ainsi 
représentée 


T —% Fu 
Nombre Numéro de 


Fin ligne 
d'octets la ligne ($01) 


* Ligne 
sur les 
variable POMS 


Token des 
instruct. 


L'interpréteur BASIC 
mémoire octet par 


INTEGER analyse la 
octet et exécute les 
instructions. A chaque fin de ligne, 
c'est-à-dire chaque fois qu'il rencontre un 
$01, il sait que les trois octets suivants ne 
représentent plus des instructions mais sont 
des informations sur la ligne suivante 
(longueur et numéro). Il positionne un "flag" 
(littéralement "“drapeau"), situé en page zéro 
à l'adresse $D7, lui permettant de savoir 
dans quelle configuration il se trouve. Si la 
valeur en $DT est supérieure à 128, 
l'interpréteur sait que les octets suivants 
sont des instructions; si elle est 
inférieure, il sait que les trois octets 
suivants sont des ‘informations de ligne. 


l'interpréteur a analysé la ligne 
20738, il a trouvé un $01 signalant la fin de 
ligne et a donc positionné $D7 à une valeur 
inférieure à 128. I1 exécute ensuite 
l'instruction décodée (le POKE 215,215) qui 
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Lorsque 








EEE ......——.— (LE 













remet justement $D7 à une valeur supérieure à 
128. 


* Ligne 20739 - La ligne 20739 est stockée 
cemme suit en mémoire 
05-03-51-77-01, soit 
05 : nombre d'octets de la ligne 
03-51 : représente 20739 en Hexa 
77 : "token!" pour l'instruction POP 
01 : fin de ligne. 


er 2. ED .- 


Enseignement Assiaté par Ordinsteur pour Ordinateurs 
WOPPE D'ANT'KC = SILEI - ITT 2020 = APPLE 11 = APPJE II «+ 
COURS &h FRANCAIS 
+ APPLESOPT Î- AFPLE II ( + Carte RPP&ESOPT ) [— 
- APPLE II + | 
“+ APPLS I] SE e 
- BOPPE B'ANPICO [ + APPLESéFT er ROX 
- FALSCFT D 107 2029 ( + Carte PALSSFT ) 
, SILACZ  Û- SILEX ( de Léanord }) 


1 - DS »« 908 ),) = kéaAci 





Quand l'interpréteur en arrive à cette ligne 

20739, il trouve trois octets indiquant la 
longeur de la ligne et son numéro, mais sur 

la foi de son "flag" $D7, il "croit" que ce 

sont des instructions. La ligne 20739 est i 
donc analysée comme suit 

05 = "token" pour SAVE (sur cassette) 


#, réselus, exécitése 
greipes. ons 











03 = ":" séparateur d'instructions 
51 = "token" de l'instruction END 
2/ COURS 2 (BASIC + } - En Français 77 = POP (ne provoque pas d'erreur puisque 
RS PR SUR ns eue END a été rencontré). 
Ainsi, après le “POKE 215,215", l'Apple 
exécute un SAVE sur la sortie cassette 
+ Etablieesrente d'Inseignements (responsable du temps d'arrêt observé ainsi 
SEA de AP HACobRR, DIR SIOMRS Contre d'age: 10 que des deux ‘bip') et un END. D'ailleurs, 





ité d'Entrefrisgess 
er) 


comme le fait remarquer D. Devernay, un POKE 
-27142,3 permet de lister cette dernière 
ligne bien malmenée 


20738 POKE POMS, POMS:SAVE: END:POP 


Rendez-vous maintenant pour les prochains 
concours, qui permettront peut-être à D. 
Devernay d'assurer son approvisionnement en 
Pom's jusqu'à l'aube du troisième millénaire! 


( T.V.A. comprise } 


ANDRE F. FINCT 
B Allée SUPFCN 
91080 EYRY-COURCSLACL;ES 
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Création de tables de formes 





La toute-puissante instruction DRAW du BASIC 
Applesoft permet, entre autres choses, la 
création de caractères de formes et de 
tailles très diverses. Mais cette instruction 
est liée à l'existence de tables de formes 
(shape tables) un peu délicates à créer, 
comme on peut le constater en lisant le BASIC 
Programming Reference Manual, pages 92 à 95. 


Les deux programmes détaillés ci-après sont 
destinés à faciliter la création de ces 
tables. Le premier, CONSTRUIT, rend pratique 
le dessin de formes et le second, ASSEMBLE, 
assemble les formes construites en une table 
de formes selon la logique requise par 
Applesoft. La disquette Pom's contient les 
fichiers suivants, dont certains ne sont pas 
listés ici, faute de place : 

MENU oriente l'utilisateur les 
programmes de création graphique 
. TRANSFERT : autorise un transfert rapide de 


entre 


graphismes 
. MINUSA, MINUSB, ..., MINUSZ : formes de 26 
minuscules 
. TAB-MINUS : table regroupant les formes des 


26 minuscules 

ESSAYE : programme démontrant l'utilisation 
de TAB-MINUS pour entrer directement du texte 
en minuscules à l'écran à partir du clavier. 


le_programme CONSTRUIT 


Avec ce programme, il est aisé de dessiner ou 


de corriger à l'écran une forme placée à 

l'intérieur d'une grille dont les dimensions 

auront été définies au préalable. Pour 

réaliser le dessin, 7 touches du clavier sont 

utilisées come suit 

HI: mére déplace le curseur vers le haut 

BURN. 19 déplace le curseur vers le bas 

— ....... déplace le curseur vers la droite 

D ES déplace le curseur vers la gauche 

erou .. enregistre le point à la position 
du curseur 

espace .. efface le point à la position du 
curseur 

RETURN .. indique au programme la fin du 
dessin 

Le signe "* dans la grille représente un 


point de la figure haute résolution finale. 


sur la 
chaque 


La pression 
l'analyse de 


touche RETURN provoque 
point de l'écran (dans 
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les limites de dimension de la grille) et la 
création d'un tableau de vecteurs. L'analyse 
est effectuée de haut en bas et de gauche à 
droite pour les lignes impaires, et de droite 
à gauche pour les lignes paires. 


Afin d'éviter la génération de vecteurs 
inutiles, et pour économiser ainsi la place 
mémoire, chaque ligne ne comportant que des 
vecteurs de déplacement horizontal (1 ou 3) 
est remplacée par un vecteur unique de 
déplacement vers le bas (2). Ceci est réalisé 
tant au'il n'v 2 pas eu de ligne comportant 


Analyse du programme 


190 à 280 
Texte de présentation. Utilise la routine 
de cadrage située en 1950. L2S est la 
variable de travail pour le texte à 
cadrer 

290 à 350 


Demande la largeur LA% et la hauteur HA% 
du graphisme à traiter (maximum 24 points 


chacune). La touche RETURN appuyée deux 
fois consécutivement indique la fin de 
travail, traitée en 610. 

360 
Appel de la routine expliquant 
l'utilisation des touches du clavier en 
900. 

370 à 380 
Définition de la ligne de grille qui sera 
affichée dans le cas de création d'un 
graphisme. 

390 


Débranchement vers la routine en 1480. 

400 à 420 

Affichage de la grille pour création d'un 
graphisme. Boucle sur la hauteur HA% 
obtenue en 290-350. 

à 590 

Routine de 
passées 


430 
saisie des informations 
par l'utilisateur, que ce soit en 
création ou en mise à jour. Les quatre 
opérations de déplacement sont commandées 
par la flèche gauche (480-500), la lettre 
MB“ (510), la lettre "H" (520) et la 
flèche droite (530). Les signes "*" (510) 


et ‘":" (550) marquent le signe "#" à la 
position du curseur et déplacent d'une 
case vers la droite. La touche 
d'espacement (560) met la position du 
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curseur à blanc (effacement) et avance le 1220 : si la position de l'écran comporte 
curseur. Le contrôle de la position du un ‘*", stockage du vecteur 5, indicateur 
curseur en fonction des valeurs de HA% et du premier vecteur avec trace trouvé et 
LA% est réalisé dans la section 570-580. saut vers la fin de boucle. 
La touche RETURN (590) est utilisée pour 1230 : dans le cas contraire, stockage du 
identifier la fin de la saisie; vecteur 1 et position de l'écran à blanc. 
appelle alors la routine 1160, qui 1250 :; s'il n'y a pas de vecteur trace 
analyse l'écran, le sauve sur disquette, dans la ligne (IN-0), retour arrière de 
et revient en 240 pour demander le LA%-1 dans le tableau des vecteurs, et 
prochain graphisme. mise à 2 du vecteur du ler caractère de 
’ la ligne. 
Retour à la lecture du clavier. 1260 : dans le cas contraire, on ajoute 1 
à 740 au dernier vecteur pour forcer le 
Routine de fin de travail, qui propose déplacement vers le bas, et 1 à l'indice 
d'exécuter le prœramme ASSE"MBLE ou de de la boucle sur les lignes afin de 
clore le traitement. traiter la ligne suivante (ligne paire). 
à 890 ; 1270 : si la fin de boucle est atteinte, 
Trois routines pour émettre des bruits : attendre avant l'analyse. 
note haute, note moyenne et note basse. 1280-1330 : comme 1200-1270, mais pour 


s 


a 1150 , , une ligne paire, donc de droite à gauche. 
Routine destinée à afficher le texte 1350 : fin de ia boucle des lignes, donc 


explicatif sur l'utilisation des touches de l'analyse de l'écran. 

du clavier. L'affichage est limité à 1355 : ajout de deux vecteurs à zéro dans 

trois fois durant l'exécution du le tableau. 

programme; tant pis pour ceux qui 1360 : wait avant sauvegarde. 

n'auront pas encore compris ... L'utilisateur doit appuyer sur une touche 
1170 à 1360 pour en sortir. 


La touche RETURN a été enfoncée. Ce 370 à 1380 

sous-programme analyse le contenu de Demande le nom du fichier disque qui 
l'écran caractere par caractere, dans les recevra le tableau des vecteurs. 

limites de LA% et HA%. En 1180, l'indice 1390 à 1470 

K4 du tableau des vecteurs et Sauvegarde du tableau des vecteurs, dont 
l'indicateur IN du premier vecteur avec la structure est la suivante : un entier 


trace sont initialisés. 


Définitivement, les minuscules accentuées 
avec la  ROM“LC»” 





Sans modification sur votre Apple: 
vous pouvez avoir des caractères 
MAJUSCULES, minuscules, avec jambages 
descendant, accentues, graph. etc... La” ROM LC” 
est compatible avec plusieurs Softwares: 
APPLEWRITER. MAGIC WINDOW. TEXT/ ED etc. 





à La Boutique Noire, Centre Beaugrenelle. 
Rue Linols 75015 Paris Téel:575.59.96 


Revendeurs, contactez-nous. 
“Pour Applell plus Rev. 7 ou plus. 
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donne le nombre de vecteurs du tableau: 
i1 y a ensuite un entier par vecteur. 
Retour au début de programme en 240. 

1490 à 1630 


Demande s'il s'agit d'une création ou 
d'une mise à jour d'un tableau (fichier) 
de vecteurs existant. Retour en 400 pour 
une création; la mise à jour débute en 
1650. 

1640 
Instructions de sortie du programme. 

1650 à 1850 
Routine de lecture des vecteurs et trace 
sur l'écran en mode texte selon leur 
contenu. 

1860 à 1930 
Création du tableau LI donnant les 


adresses de début de chaque ligne de 1a 
page 1 en mode texte (c'est vrai, 
j'aurais pu les calculer ...) 


/ 


Z 
= 
= 
S 





Le programme ASSEMBLE 


Ce programme réalise l'assemblage des formes 
qui dessinées, puis sauvées par CONSTRUIT. 
mémoire où sera 


Après avoir reçu l'adresse 


écrite la table ($6000 est un bon choix; de 
toute façon, une table de formes est 
‘relocatable"), et les noms des fichiers à 


prendre en compte, 
ces derniers 


le programme ASSEMBLE it 
et crée une table de formes. A 


la fin de chaque fichier, la forme 
correspondante est affichée en haute 
résolution. 

En fin de travail, la table de formes peut 
être sauvée sur disquette. Son contenu est 
ensuite affiché à l'aide de l'instruction 
DRAW. Le programme pousse enfin la 
gentillesse jusqu'à fournir à l'utilisateur 
les deux POKEs à introduire dans le programme 


appelé à utiliser la table de formes. 


Remarque ; il suffit de modifier les 
instructions du programme CONSTRUIT entre les 
numéros 480 et 530 pour remplacer les codes 
de déplacement selon les quatre directions 
cardinales par les codes traditionnels I, J, 
K et M. 

Tel qu'il est conçu, ASSEMBLE est adapté à 


l'assemblage de formes ayant été créées sous 
un nom ayant une racine commune, la dernière 


lettre seule identifiant les formes à 
assembler les unes aux autres. Quand on crée 
avec CONSTRUIT des formes destinées à être 


assemblées, il faut alors prévoir de leur 
donner des noms adéquats. Si l'on souhaite 
donner aux formes initiales des noms variés, 
i1 faut indiquer lors de l'assemblæge une 
racine vide (on répond par un RETURN à 
blanc). 
Analyse du programme 
100 à 160 
Création du tableau destiné à la 
conversion de l'adresse de chargement de 
la table. 
190 
Fonction modulo pour la conversion 
décimale-hexadécimale. 
200 à 260 


Fhtrée du nombre de figures à assembler 


et des noms des fichiers source (SUB 
1470). 

270 à 290 
Entrée de l'adresse mémoire (hexa) où 
doit être chargée la table. 

300 à 330 
Construction du début de la table en 
mémoire nombre de définitions et index 
de la première définition. 

340 à 380 
Calcul, mise en place et affichage de 


l'adresse de la table dans les positions 
connues d'Applesoft (SE8 et SE9). 
400 


M = adresse de la première définition, et 
L - adresse où sera écrite la prochaine 
définition. 

30 à 530 
Boucle sur le nombre de figures 


assemblage de la définition, calcul de 
l'adresse de chargement de la prochaine 
et affichage de 1a forme construite. 


550 à 605 
Sauvegarde (facultative) de la table sur 
disquette. L'adresse et la longueur sont 


affichées après la sauvegarde. 


610 à 740 
Affichage du contenu de la table. 

770 à 860 
Conversion hexadécimal à décimal de 
l'adresse entrée au clavier en 270. 

870 à 900 


Sous-programme de conversion. 
1230 à 1420 


Lecture et chargement d'un fichier 
source. 

1470 à 1580 
Entrée des noms des fichiers sources à 
traiter. 

5000 à 5500 
Routine de création des octets de la 
table à partir du tableau de valeurs 
entières créé par CONSTRUIT. Toutes les 
valeurs lues, comprises entre O0 et 7 
inclus, sont combinées pour former les 
octets de la table selon la 1lœique de 


l'Applesoft. 
7000 à 7090 
Traitement de fin de programme. 
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ILOAD CONSTRUIT 420 
ILIST 430 
440 
200 REM 2x xxx oc x dc 20€ Duc NC DMC DOC DC DC DOC DDC DC DC NIK 
x x 
x CREATION GRAPHISME x 
X HAUTE RESOLUTION x 
x x 450 
x 08 FEVRIER 82 x 460 
x x 470 
JON DNC DNC DOC DOC DOC DOC DOC DOC DOC DOC DOC DOC DOC DOC DOC DC NC CN 480 
110 REM 
120 DIM TEX(600) 490 
130 REM DEF NUMEROS DE LIGNE 
140 GOSUE 1860 500 
150 SFEED= 255 
160 TEXT ? HOME 510 
170 GOSUE 2080 
180 REM 520 
190 REM ------------ 
FROLOGUE 530 
200 L2$ = “VOUS DESIREZ CREER UN 540 
DESSIN EN" 
210 VT = 2: GOSUE 1950 550 
220 L2$ = "HMAUTE RESOL 
UT I O N" 560 
230 VT = 4! INVERSE ? GOSUB 1950: 
NORMAL 570 
240 L2$ = "ENTREZ LA LARGEUR ET L 
A HAUTEUR" 580 
250 VT = 8: GOSUE 1950 
260 L2$ = "SOUS LA FORME ? LL,HH 590 
270 VT = 10: GOSUE 1950 600 
280 L2$ = "(VALEURS MAXI RESFECTI 610 
VES = 24 ET 24) 
290 VT = 12: GOSUE 1950 
295 VTAE 21: PRINT ‘ (2 FOIS 
RETURN FOUR TERMINFK) 
À 620 
300 VTAE VT + 3? HTAE 16 630 
310 INPUT "=>"; LARGES , HAUTS 640 
520 IF LEN (LARGE$) = 0 THEN 
GOTO 610 650 
330 IF VAL (LARGES) < 1 OR VAL 
(LARGES) > 24 THEN GOSUE 75 660 
0: GOSUE 800: GOTO 160 670 
340 IF VAL (HAUTS) < 1 OR VAL 
(HAUTS) > 24 THEN GOSUE 750 680 
: GOSUE 800: GOTO 160 690 
350 LAX = VAL (LARGE$)#HAX = VAL 700 
(HAUTS ) 
360 GOSUB 900: REM EXFLIC. 710 
370 REM 720 
380 LIS$ = LEFTS$ ls sforisre à.0 7e oué ++ 730 
00.000" LAX) 740 
390 HOME : GOTO 1480 750 
400 FOR NL = 1 TO HAX 760 
410 VTAE NL? HTAB 1? PRINT LIS$; 770 
22 
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SES 


NEXT NL 

REM 

RE M ec ac ec 20€ 24 DC DAC DC DOC DC DOC CDN DC DCI IN IN IN 
x x 
x REMPLISSAGE x 
x x 


LET VT = L'HT = i 
VTAB VT: HTAB HT 
GET KF$ 
IF ASC (RF$) = 8 AND HT > 1 
THEN HT = HT - 1% GOTO 460 
IF ASC (KF$) = 8 AND HT = 1 
AND UT = 1 THEN GOTO 460 
IF ASC (RKF$#$) 8 AND HT = 1 
THEN VT = UT 1 GOTO 460 
IF ASC (KF$) 66 THEN VT = 
UT + 1 
IF ASC (RF$) 72 AND VT > 
1 THEN VT = UT - 1 
IF ASC (RF$) = 21 THEN HT = 
HT + 1 
IF RF$ = "x" THEN PRINT KF$ 
SSHT = HT + 1 
IF RPF$ = "$" THEN PRINT ‘x 
#SHT = HT + 1 
IF RP$ = " " OR RP$ = “," 
THEN PRINT RPF$; HT = HT + 1 
IF HT > LAX THEN HT = 1:0T = 
UT + i 
IF VT > HAX THEN VT = LiHT = 
15 GOTO 460 
IF ASC (RF$) = 13 THEN 
GOSUE 1160% HOME * GOTO 240 
GOTO 460 
REM 2€ 28c 2828 DC NC MC NC DC CC CC CC CCC NOKC 
x x 
x FIN DE TRAVAIL x 
x x 
CC DC DC DC DDC DC DC CC DC DC DC DD DEC NC 


HOME 
UT = 10 
VTAB 7% PRINT " ENTREZ + " 


W 1H 


(] 


L2$ = "1 SI VOUS VOULEZ ESS 
AYER LES DESSINS" 

GOSUB 1950 

UT = 12:L2$ = "2 SI VOUS VO 
ULEZ TOUT ARRETER ® 
GOSUB 1950 

VTAB 16% GET ZZ$ 

If ZZ$ = "2" THEN GOTO 1640 


IF Z2Z$ < > "1" THEN 620 
D$ = CHR$ (4)% PRINT 
PRINT D$$'"RUN ASSEMBLE"® 
END 

REM <£<£<NOTE HAUTE>>3>2>> 
POKE 769,30 

POKE 768,80 


780 CALL 770 
790 RETURN 
800 REM <<<<<NOTE MOYENNE::>>3> 
810 FOKE 769,30 
820 FOKE 768,130 
830 CALL 770 
840 RETURN 
850 REM <<<<<NOTE BASSE:>2>2>> 
860 FOKE 769,30 
870 FOKE 768,180 
880 CALL 770 
890 RETURN 
900 REM 
910 REM 2x 20e x 20€ 28€ DMC DMC DC DMC DC DICO IC DC DC DC CIC MENU 
x x 
x TOUCHES FONCTIONS x 
x x 
DC DOC DC DOC DOC DC DOC DC DOC DOC DC INC DC DOC DOC INC INC DC CN 
920 REM 
930 SX = SX + 15 IF SX > 3 THEN 
RETURN 940 HOME 
950 FLASH % VTAB 2% F'RINT "ATTEN 
TION !‘ 
960 NORMAL SVT = S$iL2$ x "NOTEZ 
BIEN L'UTILISATION DES TOUCH 
ES :" 
970 GDSUB 1950 
980 VTAB 8 
990 FRINT ‘"-> (FL.DROITE) = 
CURSEUR À DROITE"; 
1000 VTAB 10 
1010 FRINT ‘""<—- (FL, GAUCHE ) = 
CURSEUR À GAUCHE"; 
1020 VTAB 12 
1030 FRINT ‘"H (LETTRE H) = 
CURSEUR EN HAUT ‘; 
1040 OVTAE 14 
1050 FRINT "EB (LETTRE 6) = 
CURSEUR EN BAS  ‘'; 
1060 VTAE 16 
1070 FRINT ‘': (2 FOINTS) = 
FOSITION REMFLIE"; 
1080 VTAB 18 
1090 FRINT ‘"ESFACE OÙ ’x'’ = 
FOSITION BLANCHE"; 
1100 VT = 20 
1110 L2$ = "<RETURN> QUAND C’EST 
FINI," GOSUB 1950 
1120 VTAB 24 
1130 HTAB 32% FRINT "“*<RETURN>"; 
1140 GET Z$ 
1150 RETURN 
1160 REM 
1170  REM xxx xx oc Duc DC DC DUC DC DDC DOC DOC DC CIN IN 
x x 
x ANALYSE D'ECRAN x 
x x 
DC DMC DAC DONC DAC DAC DICO DAC DC DICO CDN DICO OK 
1180 LET K4 = OIN = 0 
1190 FOR À = 1 TO HAX 
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FOR CA = 0 TO (LAX - 1) 
LET K4 = K4 + 1 

IF FEEK (LIX(A) + CA) 
0 THEN TEX(K4) = SIN = 
GOTO 1240 
TEX(K4) = 
CA), 160 
NEXT CA 
IF IN = 0 THEN K4 
AX —- 1):TEX(K4) = 
50 
TBX(K4) = 
L 

IF À > 
FOR CA = 
— À 

LET K4 = 
IF FEEXK 
0 THEN TEX(K4) = 
GOTO 1320 
TEX(K4) = 3: 
CA), 160 
NEXT CA 
TBX(K4) = 
NEXT À 
K4 = K4 + 1:TBX(K4) = 0K4 = 
K4 + 1ITEX(K4) = 0 

GET KF$ 
HOME UT = 
FICHIER :': 
VTAB 14: 
NMS$ 

IF NM$ = ‘''! THEN 240 | 
D$ = CHR$ (4) 

FRINT D$;"OFEN ‘';NMS$ 

FRINT D$$"MWRITE ";NM$ 

LET K4%X = K4$ FRINT K4% 

FOR À = 1 TO K4%X 

FRINT TBX(A) 

NEXT À 

FRINT D$;"CLOSE ‘’;NM$ 

HOME * GOTO 240 

REM 


= 17 
1: 


15 FOKE (LIX(A) + 


= K4 - CL 
2: GOTO 13 
TEX(K4) + 114 = À + 
HAX THEN 1355 

CLAX - 1) TO 0 STEF 


K4 + 1 
(LIX(A) + CA) = 
7$IN = 1: 


FOKE (LIX(A) + 


TEX(K4) - 1 


12:L2$ = "NOM DU 
GOSUB 1950 
HTAB 15: INFUT *"; 


UT = 12 ed : 
12 
“CREATION OÙ MISE À JO 


HOME 
VT = 
L2$ = 
UR 7" 

GOSUB 1950: 
7 

GET Z$ 

IF Z$ = 

GOTO 400 

IF ZS EX 15° "M"! 

HOME UT = 12 
L2$ = "NOM DU FICHIER ?"4 


GOSUB 1950 
VTAE 14% HTAB 16: 


NM$ 


VTAB 14% HTAB 1 


"C"" THEN HOME : 


THEN 1500 


INPUT "; 


23 





IF NM$ = ‘"" THEN 1500 1950  REM xx 20e x 2 2 2€ DUC DC DUC NC DC DC AMC ONC 
HOME * VTAB 23% HTAB 38: x x 
PRINT. "; x CENTRAGE DE L2$ x 
D$ = CHR$ (4) x x 
GOTO 1650 DC DC DC DOC DOC DOC DOC DOC DOC DOC DOC DOC DC DDC IN INK 
REM =========fFf=I]=N====2=2== 1960 LET X = FRE (0) REM FREE 
== MEM 
HOME °L2$ = “A BIENTOT ,.," 1970 IF LEN (L2$) > 39 THEN 
sVT = 12% GOSUE 1950% VTAB 2 PRINT  ‘""TROF LONG ..,.." 
4% END 1980 HTX = (40 - LEN (L2$%)) / 2 
REM ---—mm——mme—— 1990 REM FIN CENTRAGE TITRE 
MISE À JOUR DE GRAF 2000 VTAB UTS REM FOURNI 
ee 2010 HTAB HTXS REM CALCULE 
2020 FRINT L2$°% NORMAL 

PRINT D$;"OPEN ‘"';NM$ 2030 RETURN 

FRINT D$;"READ ‘";NM$ 2040 FLASH *: FRINT "LONGUEUR L2$ 
INFUT K4%X > 40" 

LET CA = OSLI = i 2050 PRINT L2$*% NORMAL * STOF 
FOR X = 1 TO K4% 2060 FLASH % PRINT "HTAB = “"$HTX 
INPUT TBX$ IF TEX = 0 THEN 

1770 2070 GOTO 2050 

IF TEBX > 3 THEN FOKE (LIX( 2080 REM 
LI) + CA),170% GOTO 1740 2083 REM ROUTINE SON 

FOKE (LIX(LI) + CA),174 2085 REM 

ON (TBX + 1) GOTO 1760,1800 2090 FOKE 770,173% FOKE 771,48% FOKE 
1820,1840,1760,1800,1820,18 772»192% FOKE 773,136: FOKE 
40 774,208% FOKE 775,5 FOKE 77 
STOF 6,206% FOKE 777,1% FOKE 778, 
LI = LI - 1% IF LI < 1 THEN 3+ FOKE 779,240% FOKE 780,9: 
GOSUE 750% GOSUR 750$LI = i FOKE 781,202 

2100 FOKE 782,208*% FOKE 783,245: 

NEXT X FOKE 784,174% FOKE 785,0% FOKE 
PRINT 0D$;"CLOSE ‘'iNM$ 786,:3% FOKE 787,76% FOKE 788 
GOTO 430 52% FOKE 789,3% FOKE 790,96: 
CA = CA + 15 IF CA *: LAX THEN FOKE 791,0: FOKE 792,0 
GOSUE 800% GOSUE 800$CA = L 2110 RETURN 
AX — 1 1LOAD ASSEMBLE 

GOTO 1770 1LIST 
LI = LI + 15 IF LI > HAX + 1 

THEN  GOSUB BS50% GOSUB BS50% 10 LOMEM 16384 
LI = HAZX + 1 12 REM  Xc2x 28e 28e 20 DC DC DOC DC DMC D DMC DUC DC DNC DC INC MK 
GOTO 1770 x x 
CA = CA -— 1% IF CA < 0 THEN xX TABLE DE FORMES x 
CALL — 1052% CALL — 1052: x x 
CA = 0 XCD 28 DOC DOC DOC NC DOC DC DC DDC DC INC DC NC NC DC INK 
GOTO 1770 

RKEM 19 SCALE= 1 

REM NUMEROS DES LIGNES 20 DIM TFX(600) 

REM 40 TEXT $ FOKE 34,0 

DATA 1024,1152,1280,1408,15 0 HOME : VTAB 1: HTAE 12 
36,1664,1792,1920,1064,1192, 55 INVERSE 
1320,1448,15/76,1704,1832,196 60 PRINT ‘ ASSEMBLACGE 1? NORMAL 
0,1104,1232,1360,1488,161i6,1 
744,1872,2000 70 FOKE 34,2 

DIM LIX(24) 90 REM 

FOR LI = 1 TO 24 100 REM 

READ LIX(LI) 110 DIM HEX$(16,2) 

NEXT LI 120 FOR I = i TO 16 

RETURN 130 FOR J = 1 TO 2 





nf mm" À pe 


140 
150 
160 
190 


200 
210 


220 
230 


240 
245 
250 
260 
270 
280 
290 
300 
310 
320 
330 


340 
350 


399 


360 


370 
380 


390 
400 


410 
420 


430 
440 
47 0 
500 


510 


520 
923 
924 
930 





READ HEX$(I;,J) 540 
NEXT J 5 0 
NEXT I 9560 
DEF FN MOD(A) = INT ({A / 

256 —- INT (A / 256)} x 256 + 


+05) x SGN (A / 256) 
REM 
RE M 26€ dec 20€ 20€ 2€ DMC DOC DC DUC DOC DC DDC DC DC DOC OC DC DC IC NC 97 0 
x x 
x OEEUT DU FROGRAMMEx 980 
x : 590 
CN DONC DAC DOC DOC DOC DOC DUC DOC DOC DOC DOC DC DOC DC DC NC NC 
UTAB 4: CALL - 958 600 
INFUT "COMBIBN 0E FIGURES À 
ASSEMBLER ? “"?L$ 
LET NN = VAL (L$) 
IF NN < 1 THEN GOTO 7000 : 
GOSUE 1470 605 
FRINT 610 
INFUT "ADRESSE HEXA = "$;LS$ 620 
GOSUB 770: FRINT 
LET L = VAL (L$)? REM ADDR 
FOKE L,NN? FOKE (L + 1),0 
LET LL = 4 + (NN — 1) x 2 
GOSUE 870 630 
POKE (L + 2),L2: FOKE (L +3 
el-1 670 
LET LL = L! GOSUE 870 Gal 
FOKE 232,L2: FOKE 233,L1 250 
HOME : PRINT : PRINT : HTAE_ 0 
5% PRINT "AJOUTEZ DANS VOTRE 329 
FROGRAMME :"3 FRINT 
FRINT : FRINT TAB( 08): 740 
INVERSE 732 
FRINT “"FOKE 232,"3;LZ23;"? FOKE 740 
233;'"5L1 760 
NORMAL : PRINT :M = FRE (0) 770 
GET A$? PRINT : HGR 
LET M = L?L = L + 2 + NN x 2 7B0 
790 
UTAB 21 
RE M 28€ CC NC DC DC CDN DC DC CD DC DC DCI DDC 80 0 
x + 810 
x DEBUT DE LA BOUCLExX 
* 6 820 
OK ACDC OC DCE DCE DCI DC CHE HO 830 
FOR Ni = 1 TO NN 
GOSUB 1230 A 
GOSUE 5000 240 
PRINT "FIN DE LA FIGURE "$N1 870 
; FOKE L,0 get 
IF Ni < > NN THEN MM = M + 
2 + N1 x 2!LL = L - M +1! 
GOSUR 970: FOKE MM,L2: FOKE 
(MM + 1),L1 
LET L=L +1 890 
HGR 
DRAN Ni AT 140,B0 900 


NEXT Ni 





HOME * 

REM 

REM 2x 2x 200 26e ec Dec DOC DOC DOC DOC DOC DC DOC DC DDC DC INC INK 
x x 
x SAUVEGARDE TABLE x 
x x 
DC DNCDNC DOC DOC DOC DOC DOC D DOC DOC DOC DC DC DC DOC DICK 


VTAB 21 


FRINT "UOULEZ-VOUS SAUVER LA 
TABLE ? " 
GET A$ 
IF A$ < > "O0" AND A$ < > * 
N" THEN 540 
IF À$ = “QO" THEN  INFUT "QUE 
L NOM ? "$N$SSN$S = "BSAVE" + 
N$ + "LA" +  STR$ (M) + ",L" 
+ STR$ (L - M)$5 FRINT : FRINT 
CHR$ (4); NS$ 
FRINT N$: GET A$ 
REM 
REM 26€ 20€ 2€ Duc Duc DMC OC DC DC DC DDC DOC OC OC DC DC DDC 
x x 
x ESSAI FIGURES x 
x x 
CCC DC DC DC DOC NC NC DOC DC DC DDC CCC DC CN 
HOME % VTAB 21: FRINT "ESSAI 
OES FIGURES ,."; 
HGRK  HCOLOR= 3 
ROT= 0%X2 = 0%Y2 = 20 
INPUT ‘" LARGEUR = "LA 
FOR Ni = 1 TO NN 


DRAWN Ni AT X2,Y2 
X2 = X2 + LAS IF X2 > 260 THEN 


X2 = 0!Y2 = Y2 + 14 

NEXT Ni 

FOKE 34,0 

GOTO 7000 

REM 

REM ===" 
CONVERSION ADRESSE 

FOR K = 1 TO LEN (L#) 

LET J$ = MIO$ (L$, LEN (L$) 

- K + 1,1) 

FOR I = 1 TO 16 

IF J$ = HEX$(I,1) THEN J = VAL 

(HEX$(I,2)): GOTO B30 

NEXT I 

LET M= M +16 4 CK — 1) x J 

NEXT K 

LET L$ = STR$ (M) 

RETURN 

REM 

REM = 


mn = = ns ne — 0e ee eue = ve eme de One que ee ee ee eme 


LET Li = INT (LL / 256):L2 = 
FN MOD (LL) 
RETURN 





REM 26c 0€ 28282 DMC MCD DMC OMC DC NCA MC NOM 
x x 
x LECTURE AUTOMAT, x 
x x 
CC MCE CCC CCC MAMMA NN NON 
LET NM$ = NM$(N1) 
LET D$ = CHR$ (4) 
PRINT D$;"OFEN ";NM$ 
FRINT D$;'"READ ‘";NM$ 
INFUT C2% 
FOR C1 = 1 TO C2% 
INFUT TFX(C1) 
NEXT C1 
FRINT D$; "CLOSE 
LET TF4(C1) = 0 
LET TFX(C1 + 1) 0 
LET TFX(C1 + 2) 0 
LET TFX(CC1 + 3) 0 
C1 = 1 
RETURN 
RKEM 
REM 26002 cc NC OC DC NC DC NC NC DC DC NC DC OC ICI 
x x 
x LECTURE DES NOMS x 
x DES FICH,SOURCES x 
x x 
CCC CCC CCC COCO DC OC OC DC OC NC NC 
DIM NM$(NN) 
HOME 3 INPUT "FREFIXE : 
F$ 
IF LEN (FF$) 
1: VTAB 24: 
RETURN": 
1520 
LET LE = 
FOR NM = 1 TO NN 
PRINT "NOM ";NM;" ";FF$; 
IF LE = 1 THEN  INFUT 
$ 
IF LE 
NM$ 
NMS$ (NM) = 
NEXT NM 
RETURN 
REM 282022 20€ CN DOC CC CCC CCC OC MCE HO 
x x 
x TABLE DE FORMES x 
x x 
ACC NC NC DC NC NC DC NC NC DOC DC NC DC CC DC OC INC 


NB = 1% RKEM NUMERO VECTEUR 
REM 


"SNS 


= 0 THEN LE 
HTAB 31% FRINT 
UTAB 53% HTAE 1: 


2 


2 THEN GET NM$: 


FF$ + NM$ 


LECTURE/CODIFICATION 


VE$ = 
1 1 
IF VES$ « 
9020 
VECNB) = VAL (VES$) 

ON NB GOTO 5080,5140,5210 


STR$ (TPX(C1))>:C1 = 


“sF 


GOTO 


USNM 


FRINT 


C 
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© 





"0" OR VE$ > "7" THEN7070 


7075 


7080 


7090 





REM 

REM 1ER VECTEUR 
REM 

VEX(1) = VE(1) 

NE = NB + 12VE(1) = 
GOTO 5020 

REM 

REM 2EME VECTEUR 
REM 
VEX(2) = 
) 

IF VEX(2) = 0 THEN 5330 
NE = NE + 1:VE(1) = O?VEX(1) 

= 0 

GOTO 5020 

REM | 
REM 3EME VECTEUR 

REM 

IF VE(3) < 
4 THEN 5280 
VE(1) = VE(3):VE(3) = 0 

FOKE L,VEX(2)îL = L + 1 
NB = 1 

GOTO 5060 
VEX(3) = VEX(2) + (UE(3) x 6 
4) 

IF VEX(3) = 0 THEN 5330 
FOKE L,VEX(3)!L = L + 1 
NE = 1:UEX(3) = O?VEX(2) 
*VEX(1) = O!VE(1) = O!VE(2) 
0O?VE(3) = 0! GOTO 5020 

REM 

REM FIN DE FORME 

REM 

REM VEX(3) CONTIENT VECTEUR 


VEX(1) + (VE(2) x 8 


> 0 AND VE(3) < | 


FOKE L,VEX(3)?L 

FOKE L,0! FOKE L 

L + 2,0? FOKE L + 

1 

RETURN 

REM xxxmxmx 

DATA 0,0 
S,Ss61607:7 

1xCmi 2, D ,43 

REM 

REM 

HOME : UVTAB 
FRINT “ 1 FOUR CONSTRUIRE 


VTAB 23 
FRINT " 2 FOUR ARRETER " 
; 

GET Z$ 


IF 2$ = "2" THEN HOME * END 
HOME * FRINT 
LE Zee "1! 

D$ = CHK$ (4) 


FRINT D$;$;"RUN CONSTRUIT" | 


THEN 7010 








JLDAD ESSAYE 20 INVERSE # FRINT ‘"FHEBUS";: 
ILIST NORMAL? FRINT " VOUS FROFOSE :" 
30 VTAB 8: CGOSUE 200% VTAE 8: 
300 HOME * HGR2 * HCOLOR= 3 CALL - 958 
320 FRINT CHR$ (4);"BLOAD TAB-M 40 FRINT "1 CONSTRUIT FOUR CK 
INUS :A$6000" EER VOS GRAFHISMES"; 
330 FOKE 232,0% FOKE 233,96 RDT= 50 VTAB 1ii 
0% SCALE= 1i 60 FRINT "2 ASSEMBLE FOUR LE 
340 L2$ = "QUANO CE TEXTE SERA EF S ASSEMBLER (DRAN)''}; 
FACE VOUS FOURREZ ENTRER"? GOSUE70 VTAB 20 
2000 90 FRINT ‘" (ENTREZ LE NUMERO D 
350 L2$ = "DES CARACTERES ALFHABE E VOTRE CHOIX) Cor 
TIQUES AU CLAVIER'"'$ COSUB 20 100 GET Z$? FRINT 
00 110 IF Z$ = ‘'1'" THEN FRINT D$;" 
360 L2$ = CHR$ (13)° GOSUE 2000 RUN CONSTRUIT" 
370 L2$ = CHR$ (13): GOSUE 2000 120 IF Z$ = "2" THEN FRINT D$;" 
380 L2$ = " JE NE PISFOSE FAS ENC RUN ASSEMBLE" 
ORE DES CHIFFRES NI DES"? GOSUE 130 FRINT D$;'"CATALOG 
2000 140 GET Z$ 
390 L2$ = ''CARACTERES MINUSCULES 150 GOTO 10 
ACCENTUES MAIS IL FEUT'? CGOSUB200 REM 
2000 240 FRINT ‘" 4 FROGRAMMES : 
400 L2$ = "ETRE INTERESSANT DE LE dr 
S CREER AVEC CONSTRUIT "# GOSUE:250 VTAB 11 
2000 260 FRINT " CONSTRUIT FOUR SAIS 
410 FOR WAI = 1 TO 5000 NEXT WA IR DES GRAFHISMES 
I 270 FRINT 
420 HGR2 5X = 0%Y = 0 280 FRINT ‘ ASSEMBLE FOUR CREE 
430 L2$ = ‘"" R UNE SHAFE TABLE 
440 GET L2$ 290 FRINT 
450 CGOSUB 2000 300 FRINT ‘ ESSAYE FOUR ESSA 
460 GOTO 440 YER UNE TABLE ! 
1999 END 310 FRINT 
2000 REM 320 FRINT ‘ TRANSFERT FOUR COFI 
2020 FOR À = 1 TO LEN (L2$) ER DES SOURCES SUR" 
2030 N = ( ASC ( MID$ (L2$,A;,:1))) 325 FRINT 
330 FRINT ‘ U 
2040 IF N = 13 THEN 2230 NE AUTRE DISQUETTE" 
2050 IF N = 32 THEN X = X + 6: GOTO 350 VTAB 23 
2200 360 FRINT 
2060 IF N - 64 > 26 OR N - 64 < <RETURN>"; 
1 THEN CALL - 1052% CALL - 370 GET Z$* FRINT 
1052% RETURN 400 RETURN 
2070 DRAN N - 64 AT X,Y 60000 REM 
2080 X = X + 6 60002 REM CREE LE 20/02/81 
2200 IF X > 273 THEN X = O0Y = ŸY 60004 RKEM 
+ 9 60006 REM DATES DE MISE À JOUR 
2210 IF Y > 183 THEN TEXT * HOME 60010 REM 
* END 60012 REM 15/03/82 
2220 NEXT À 60014 REM 18/03/82 
2225 IF LEN (L2$) = 1 THEN RETURN JLOAD TRANSFERT 
LIST 
2230 X = O0%Y = Y + 935 IF Y > 183 THEN 
TEXT + HOME * END © REM CCC CC MCD CIC CIC NC DC NC DC DC CCC ICE 
2250 RETURN x x 
x TRANSFERT SOURCES x 
JLOAD MENU x x 
JILIST x CONSTRUIT X 
M NON NCNONCK PTT TÉ EL 
10 HOME * VTAB 3:D$ = CHR$ (4) 10 SFEED= 2552 TEXT 


et 
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TAB-MINUS 

100 HOME : UVTAB 12: INVERSE GAS 64 AU °C GS 60 66 SF Gb 
ni : CWiu- OF A4 Ci A4 O3 An Ed ua 

110 L2$ = "TRANSFERT GRAPHISMES "er AF OU, LL 03, 48 E4,6 

à : Qui FE 44 494 A] ji: 41 £2S 4] 

115 HTAB (40 — LEN (L2$)) / 2% FRINT Mob creer UE <E 
L?2$ nos ed RSS NI ARE 0. 

bAES- F5 A1 SA A1 SH A1 44 1 
130 FOR WAI = 1 TO 1300: NEXT HA éaza- EG à1 CA à1 DOG à #5 20 

] GU3S- 15 OF 5% 20 35 CF 73 20 


180 NORMAL % VTAB 15% HTAB 10% INFUT 


I 
*COMBIEN ? ";CXX: DIM NM$(CX 


bi4g- F5 OE & 
D 
ee 


6àd&- DB ZE : 
% } 5 NB (CXX) GAS&- OF 33 20 A0 DB 13 An aa 
289 REM GASS&- A S2 £0 15 OF 33 40 11 
290 REM === GAGA-— OF ra 20 os CE A2 pet) 8 
291 REM babé- A 44 31 OF S3 20 3 CF 
300 HOME Ga?8- 33 40 31 OF 73 20 FS OE 
310 INFUT "LONGUEUR, HAUTEUR (MAX 6A7S- 02 A A An SZ 20 15 OF 
I) "#LOX,HAX GAS 33 20 20 DE 1B GE 20 OS 
315 FRINT GASS- DE AZ GA à AA 29 E0 FE 
320 NN = LOX x HAZXINN = NN x CXX: 699A- 33 40 O1 36 37 40 Ot DE 
FRINT "DIM = “;NN! GET A$ 6UYS- 6E #9 DE 13 An A Ga SZ 
330 DIM TBX(NN) ; GuQqu- 20 35 OF 33 40 31 3F EF 
332 FRINT CAAS- 43 Fi SF 17 GA AA Hi 40 
335 D$ = CHRS$S (4) GaB4- Qt CE 6E &4 3E SF 6E 
340 FRINT CXX;"* NOMS : “3% FOR T = GUbS- FE 15 GE 69 DE S A ax 
1 TO CXX? INFUT NM$CTD! NEXT T 6Ca- ag &4 80 O6 S3 60 CA SF 
343 FRINT GAUS- V3 EO 16 %F 29 ÜO O6 13 
345 RL = 1? REM ENTREE DANS TEX GUCR- Aa a Aù 48 OS QE 48 A0 
350 FOR IN = 1 TO CXY GACS- FE S3 49 OS CF 64 44 16 
370 FRINT D$;"OFEN ";NM$ CIN) GGEG- BF GG Gù 49 69 [1 18 57 
380 PRINT D$:"READ "?NMS$CIN) Ale x <e de FL pa LE 2 
390 INFUT NB(IN) A A MH LU € € 
410 INFUT TBX(RLDIRL = RL + 1 GI 18 SF 29 AC O6 13 94 &û 
430 PRINT D$:"CLOSE "NM$ CIN) Gliu— FE 1F GE Ô0 DE SE A8 GA 
2 Seau 6124- OF 33 40 F1 DE 42 à an 
: 6i2&- Où S2 20 15 OF 33 40 z1 
450 FOR T + 1 TO CXX E138- OF 73 20 OS CE 42 A4 Ga 
460 FRINT NMS$S(T);" MSNBCT);" E 6128- @ù 12 20 A0 OF 33 40 Fi | 
NTREES . ” G14u- 3F 37 40 O1 DB 46 aa dû 
470 NEXT T 6148- da 52 20 35 OF 33 40 31 
DECEYEEENNTSS 61S@- 3F EF 49 31 OF 13 &@ mà 
490 FRINT CHANDEZ LR DISQUETTE 61S8- Aà 12 àQ A0 OF 3 40 Oi 
FUIS <RETURN> "ÿ5 GET A$ 6164- DB GE 84ÿ DB 13 44 A& a 
650 REM 6168- S2 20 FS O6 4E 20 15 CF 
660 RE CC Mc DC MC DC DCE DC DCI DC IC IC OC IC NOK G1rä- 13 20 A0 DE 13 44 G@ aa 
x x 617$- £9 O1 18 17 20 A0 CB S7 
x SAUVE LE TABLEAU x 61Su- 40 14 1F S7 69 Of JE à . 
x x G188- a V4 12 40 31 OF 33 4û 
DC NC DOC NC DOC DOC DOC DOC DC DOC DOC DC DOC DOC OC DC DC NC NC CN b194— A1 OF Fa 20 FES DE A? af 
668 RL = 1:D0$ = CHRS$S (4): FRINT 6198- AA A 12 40 31 DE 33 dû 
670 FOR IN = 1 TO CXX%X 61A4- F1 iF S7 69 DA 48 dù &a 
690 PRINT D$:"OFEN “">NMSCIN) B14&- 4 12 4G A1 DF 73 ä0 dQ 
700 PRINT D$;"WHRITE "3? NMSCIN) GIEG- FE 1F GE A0 LG DE & 
710 FRINT NB(IN) 61BS- 04 &ÿ 12 40 F1 1F S7 69 
720 FOR I = 1 TO NB(IN) G1CU- 14 1F 17 40 Fi O6 42 au 
790 FRINT TEXCRL)I?RL = RL + 1 61C&- üà Aù 12 40 31 OF 73 EL 
800 NEXT I GiOM- 35 OF S2 49 1E 23F 17 &4 
810 FRINT D$:"CLOSE ";NM$(IN) 610&- äà GA 12 20 20 1E OF 4 
ais pin IN GiE4- 80 OR 17 20 20 DE 9 aa 
G1ES- A Aù FF FF 
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La carte M/DOS 6502 à l'essai 





Nous en avions l'intention depuis longtemps, 
à force d'en entendre parler; nous avons 
enfin pu essayer la carte M/DOS 6502 
fabriquée par Micro Informatique Service 
(MIS), à Nice. 


Vendue au prix public de 2.800 F HT, la carte 

M/DOS 6502 est compatible Apple, ITT 2020, 

Silex et systèmes intégrés IEF. Ses 

caractéristiques principales sont les 

suivantes : 

. 16K supplémentaires de mémoire centrale; 

. un système d'exploitation de disquettes 
(SED) puissant; 

. une gestion par masques des entrées et des 
sorties; 
précision numérique de 48 chiffres signi- 
ficatifs en traitement particulier; 

. adaptabilité à toutes les cartes 80 colon- 
nes compatibles Apple/ITT 2020; 

. compatibilité des programmes de 110K à 40 
méga-octets; 

. jusqu'à 16 méga-octets peuvent 
d'un seul tenant. 

La conception originale du SED 

par masques des entrées et 

permettent de gagner beaucoup 

la réalisation d'un programme. Nous l'avons 

constaté par nous-mêmes en mettant des 

pro&rammes au point sur M/D0S 6502; cela nous 

a été confirmé par des SSCI qui utilisent 

aussi la carte. 


être gérés 


et la gestion 
des sorties 
de temps dans 


La gestion de fichier 


La gestion de fichier est très différente de 
celle du DOS, tout d'abord par la nature même 
des fichiers utilisés, dont on distingue 
trois types : 

. les fichiers 


. les fichiers 
. les fichiers 


séquentiels relatifs; 
séquentiels indexés; 
multiclés. 


séquentiels relatifs (FSR) sont 
fichiers séquentiels du DOS. 


Les fichiers 
semblables aux 


Les fichiers séquentiels indexés (FSI) 
possèdent une clé d'accès unique formée d'un 
ensemble de variables BASIC. Quand un 
enregistrement est recherché, ou bien il est 
trouvé et tout va bien, ou bien il ne l'est 
pas et un drapeau signale l'échec de la 
recherche. 

Les fichiers multiclés (FM) possèdent au 
maximum 10 clés, chacune de celles-ci étant 
soit un ensemble de variables BASIC, soit un 


pointeur de fichier relatif. 
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Unie grande originalité du M/DOS 6502 est la 
gestion dynamique des fichiers. Il n'est pas 
besoin de définir une longueur d'enregis- 


trement précise. Quand un fichier de type FSI 


ou FM est créé, le système propose une 
longueur indicative de référence qui sert à 
sa gestion du fichier, et que l'utilisateur 


peut modifier à loisir. Le SED gère 
lui-même la longueur d'enregistrement. 


Quel que soit le type de fichier, lorsqu'un 
enregistrement recherché a été trouvé, cet 
enregistrement est lu automatiquement. [Les 
opérations possibles à partir de là 
correspondent aux ordres suivants : 


NEXT - lit l'enregistrement suivant selon les 
clés ou le pointeur (s'il s'agit d'un fichier 
multiclés, l'utilisateur sélectionne la clé) 
BORNE = fixe une limite à la clé du fichier 
(FSR, FSI, EM} 

XTRACT = sélectionne un 
sélection d'une sous-zone 
FU) 

XINDEX — met dans le pointeur d'un FSR le 
numéro du prochain enregistrement qui sera 
créé par un ordre WRITE (FSR) 

WRITE = écriture d'in nouvel enregistrement 
(tous fichiers); refuse les homonymes 

ADD - écriture d'un nouvel enregistrement 
(FSI, FM); accepte les homonymes 


par 


sous-fichier par 
dans la clé (FSI, 


UPDATE = mise à jour d'un enregistrement 
(tous fichiers) 

READ - lecture d'un enregistrement (tous 
fichiers) 

DELET - destruction d'un enregistrement (tous 
fichiers) 


1I£Æ M/DOS 6502 étant résident sur la carte, la 
place que le DOS occupe sur les disquettes 
(si l'on désire booter sans jongler avec les 
disquettes) est libérée. 


La gestion par masque des entrées/sorties 


I1 s'agit là d'une idée très intéressante; 


seuls ceux qui n'ont jamais travaillé à 
l'aide de masques peuvent ne pas réaliser 
l'apport de ceux-ci. Un des premiers 
programmes que j'ai écrits quand j'ai 
commencé à travailler sur Apple est un 


programme de gestion des menus et des entrées 
par masque sur l'écran. 


saisie en M/DOS 

l'éditeur de 
rentrer à l'écran les 
où on désire les voir 
il suffit d'utiliser 
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Pour définir 
6502, il suffit 

masques chargé) de 
libellés exactement 
apparaître. Pour 


un masque de 


(une fois 


cela, 
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EXEMPLE DE MASQUE 


instructions de déplacement du curseur à 
l'écran (flèches, barre d'espacement, 
RETURN). Ensuite, les endroits où doivent 
être rentrées les données sont délimités avec 
les signes "<'"" et ">". Le nom de la donnée 
correspondante est inscrit entre les deux, 
quand il y a suffisamment de place, à côté 
autrement. 


les 


L'utilisstion de mémoires de masse 


M/DOS 6502 a été conçu de façon que 
l'adaptation d'un prœramme à l'utilisation 
de mémoires de masse (disquette grande 
capacité, disque lourd) ne nécessite aucune 
modification. Il est possible d'écrire le 
programme de manière El le rendre 
immédiatement opérationnel sur divers 
supports de ce genre. C'est pourquoi MIS, 
ainsi que d'autres fabricants ou 
distributeurs, propose des systèmes M/DOS 
6502 multipostes. Christian Colmant en parle 
dans son article sur les mémoires de masse. 


Commentaires généraux 


Quelles sont les critiques que l'on 
émettre à l'égard de la carte M/DOS 6502 ? 


peut 


sr 


E/S 


Inconvénient 3 

Les masques d'entrées/sorties gèrent divers 
formats et/ou modes de représentation 
alphanumérique, entier, réel, gestion (x 
décimales). IL est regrettable qu'il n'y ait 
pas pour l'utilisateur la possibilité de 
définir deux ou trois formats complémentaires 
dont il a souvent besoin. Par exemple, il est 
utile en gestion d'avoir le format 
XX:.XXX.XXX,XX dans lequel les grandes sommes 
sont rendues lisibles par le découpage en 
tranches de trois chiffres. Note un 
contrôle interzone conditionnel est annoncé 
pour la release XI. 


Inconvénient 4 
La carte M/DOS 6502 n'est pas compatible avec 


les cartes langage possédant la ROM F&, ce 
qui est gênant pour les utilisateurs de 
Pascal ou ceux qui ne peuvent se satisfaire 
des maigres 18K disponibles avec Visicalc 
38. MIS a, parait-il, l'intention de 
modifier légèrement sa carte de façon à 
rendre la carte langage prioritaire, ce qui 


éliminera ce problème. 


inconvénient 5 


À La carte actuelle consomme trop et, lorsque 
Inconvénient 1 : nous avons voulu l'utiliser avec le lecteur 
Le tout premier est que, et i1 s'agit là d'un M d'IEF (voir l'article sur les mémoires de 
défaut hélas bien français, la documentation masse), nous n'arrivions plus à booter. Il a 
est franchement mauvaise; quand au texte, il fallu changer des ROMs de l'Apple et y 
pourrait être plus clair. Les fautes de jnstaller de plus puissantes pour enfin 
français courent après celles d'orthographe. pouvoir travailler. I1 est vrai que, si 
Alors que le M/D0S 6502 s'adresse auX l'Apple comporte huit slots, cela ne veut pas 
utilisateurs Apple, aucune référence n'est dire que l'appareil fonctionne si on les 
faite, lors de la présentation des divers utilise tous ... 
types de fichiers, au vocabulaire du DOS ou 
aux notions courantes pour les Appleomanes. : 

k Apres ces critiques, quels sont les aspects 
Inconvénient 2 j positifs que nous pouvons souligner ? Nous 
La place que l'on est censé gagner sur la reprenons ici ce qui nous a particulièrement 
disquette en n'y chargeant pas de SED est jntéressés sans énumérer tous les avantages 
reperdue par les fichiers que M/DOS 6502 doit ynnoncés au début de cet article. Nous 
mettre en place _ pour effectuer sa gestion n'avons pas eu l'occasion d'utiliser M/DOS 
dynamique de la mémoire. En effet, la gestion 6502 en multi-poste et ne pouvons donc faire 
de fichier est prévue pour des fichiers de 16 aucun commentaire sur ses performances à cet 
M-octets et 64K enregistrements. égard. 
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Avantage 1] 

Hors le problème soulevé ci-dessus, la 
gestion par masque des entrées/sorties gagne 
beaucoup de temps lors de la création d'un 
programme . Les fonctions READ, UPDATE et 
WRITE, en gérant les informations un écran à 
la fois, évitent de pénibles séries 
d'instructions de lecture et écriture, tout 
en compactant énormément les programmes. 


Avantage 2 

Les fichiers multiclés sont particulièrement 
utiles et épargnent l'écriture de routines de 
recherche d'enregistrements par clés, tout en 
fonctionnant de façon très performante. 
Avantage 3 

L'équipe qui a mis le M/N0$S 6502 au point est 
une, équipe sérieuse. Nous avons eu l'occasion 
de discuter avec des personnes qui avaient eu 
des difficultés avec la carte intiale; il ont 
bénéficié d'un excellent service après-vente, 
et les problèmes ont été résolus à la 
satisfaction générale. 


Conclusion 


M gérant la structure des données et des E/S 
écran et imprimante indépendamment de la 
structure du programme BASIC, ce système 
permet une plus grande adaptabilité des 
applications sans modification du code en 


BASIC. Le NH 22 
Notre conciusion genérale est tout à fait 


favorable. La principale critique que l'on 
pouvait adresser sur le fond était le manque 
de transportabilité un programme écrit en 
H4/D0S 6502 ne tourne que sur Apple et devra 
donc être réécrit si l'on change de matériel. 
Cet argument risque de perdre de son poids, 
puisque MIS étudie actuellement la 
réalisation de M/D6S 6502 sur 8088, 8086, 
seus MS/DOS, CP/M86 et sur 68000! 


Remarques de la société MIS 


1. Une nouvelle documentation est en cours de 
réalisation. 

2. Un contrôle interzone conditionnel est an- 
noncé pour la release XI. 

3. Des efforts sont consacrés actuellement à 
l'amélioration de la carte, afin qu'il n'y 
ait plus de problèmes de puissance. 


Un catalogue général 


Ji Cor 





Dans les précédents articles, nous avons 
placé dans un seul fichier les répertoires de 
tous nos disques Pascal. Chaque ligne 
contient le nom du fichier et sa date, le 


genre et le type de le nom du 


programme, 
disque et le numéro de la boîte où il est 
rangé. 
Nous allons profiter de ces éléments pour 
effectuer, à l'écran ou sur l'imprimante, des 
sélections permettant de retrouver un fichier 


par son nom bien sûr, mais aussi de lister 
les fichiers sélectionnés sur un type et sur 
un genre déterminés, ou encore d'éditer un 
catalogue par numéro de boîte ou par disque. 


Le programme précédemment écrit (cf. Pom's 2 


et 3) reste valable; seules les procédures 
TRI et LIRE, qui étaient indiquées à 
améliorer, sont à remplacer par celles qui 


paraissent aujourd'hui, 


La procédure LIRE 
différentes options ; 


propose maintenant 


(0) : édition 
précédemment 
(1) : édition du catalogue 
fonction d'un type et d'un genre 
(2) : édition du catalogue par nom de disque 
ou de fichier 


complète du catalogue comme 


sélectionné en 


(3)e" numéro de boîte ou de 
fichier. 
Le choix 
demandé 
booléen 
OUI), le 
de l'option 
édition d'un 
de quelques 


édition par 


étant fait, et le programme ayant 
s'il faut une impression ou non, (le 
IMP prenant la valeur de la fonction 
CASE distribue la tâche en fonction 
demandée. Si IMP est vrai, 
trait sur l'imprimante, sortie 
lignes de papier et demande pour 


une autre recherche, le booléen QUIT (qui 
prend la valeur de NOT OUI) permettant 
l'interruption de la boucle globaie WHILE NOT 
QUIT. 


Les différentes procédures de sélection sont 


très simples 


- demande de précision dans le critère 

- choix du critère 

- sortie de la procédure par un EIT si le 
critère est nul 

- sinon, affichage à l'écran ou sur l'im- 
primante des facteurs de sélection et lec- 
ture ligne par ligne du fichier par une 
boucle FOR I := 1 TO NUMCAT-1 DO. 


La boucle effectue une comparaison avec les 


valeurs de sélection; quand la fiche est 
bonne, elle est imprimée si IMP est vrai, 
sinon affichée à l'écran. Le paramètre I sert 


à indiquer le numéro du fichier. 
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Quelques remarques 


- dans TRIGT : le type et le genre sont des 
lettres de A à YŸ entrées lors de la création 
de la fiche; en effet la valeur Z sert ici 
à supprimer le facteur de sélection, c'est à 
dire que genre A type Z signifie n'importe 
quel type de genre A. 


- dans TRINOM : il est possible, si l'on 
utilise des noms de fichiers très structurés 
(par exemple, quand tous les programmes 
graphiques comportent les lettres GR et les 
programmes utilitaires UT) de remplacer 
l'égalité de la boucle FOR par l'utilisation 
de la fonction POS du Pascal. Dans ce cas, 














(GARDEA.NOMFILE:=ST) 


devient (POS(ST, GARDE A.NOMFILE)}<»>0). On peut 
trouver de cette façon tous les noms ayant 
une syllabe valide au lieu d'une égalité 





stricte. 
(U/G} EXTRPONS. TEXT {C) 1982 M. CRIMONT 31/03/82 
{% =====POUR PONM’ S=====PROGRAMME DE CATALOGUE GENERAL x) 


C NC CC DAC DC DOC DOC DOC DOC DOC DOC DOC IN DOC DC DC DC DC DOC DOC DOC DOC DOC DOC DC DOC DC DC DC NC NC DC DC NON AC ) 


Len on on mens me mn ec : X) 
CMD DDC DC DC D DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DOC DC DC CC DC CC OC ICNONC ) 


FROCEDURE TRI; 
VAR I s:INTEGER; 
BEGIN 
MESSAGE(3,° EDITION DU CATALOGUE GENERAL: ); 
IF IMF THEN 
BEGIN 
MESSAGE(10,” XXMMX SUR L''IMPRIMANTE xxxxx” 
WRITELN(FAFIER, EDITION DU CATALOGUE GENERAL‘ :55 
WRITELN(FAFIER) END; 
TITRE; 
FOR Ii=i TO NUMCAT-1 DO 
BEGIN 
GET (GARDE ) ; 
IF IMF THEN IMFRIME(I, GARDE) ELSE AFFICHE(I, GARDE") 


END À 
END; 


FROCEDURE TRIGT; 
VAR I iINTEGER; 
G; T,NUL CHAR; 

BEGIN 
NUL:=°27"; 
MESSAGE (5, ‘CODE DE ’’A’’ À ’’Y’’ OÙ ‘’’Z’’ FOUR TOUS ’ ); 
MESSAGE (7, CODE GENRE :’);G!:=FPRENCAR(C’A’,,./Z’,’ ‘l): 
IF G=’ ’ THEN EXIT(TRIGT); 
MESSAGE(9,’CODE TYFE #’)$T°=FRENCAR(C’A4’,.,°2°," ‘1); 
IF T=’ ‘’ THEN EXIT(TRIGT); 


) 
) 


e 
’ 
e 
’ 
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GOTOXY(9,3) ;HRITE(EFB); 
MESSAGE(3,’CATALOGUE TRIE SUR ‘); 
IF G<>NUL THEN WRITE(’GENRE:°;,G); 
IF (G<>NUL) AND (T<>NUL) THEN HRITE(’ & ’); 
IF T<>NUL THEN WRITE(’TYFE $°,T); 
IF IMF THEN 
BEGIN 
MESSAGE(10,” XXXMMM SUR L'’’IMFRIMANTE xxx"); 
WRITE(FAFIER,’ ’315,’EDITION DU CATALOGUE TRIE SUR ‘’); 
IF G<>NUL THEN WRITE(FAFIER, ‘GENRE: °’,6G); 
IF (G<>NUL) AND (T<>’Z’) THEN WRITE(FAFIER,° & ’); 
IF T<>NUL THEN WRITE(FAFIER, ’TYFE:’,T);WRITELN(FAFIER) ; 
END; 
TITRE; 
FOR I5=1 TO NUMCAT-1 DO 
EEGIN 
GET(GARDE) ; 
IF (CGARDE".GENREL11=6G) OR (G=NUL) }AND((GARDE”,GENREL23=T)OR(T=NUL) ) 
THEN IF IMF THEN IMPFRIME(I, GARDE") ELSE AFFICHE(I, GARDE") 
END 
END; 


FROCEDURE TRINOMW; 
VAR I *INTEGER; 
OF* CHAR; 

ST STRING; 


MESSAGE(S,’/<1> NOM DE FICHIER’); 
MESSAGE(6,’<2> NOM DE DISQUE ); 
MESSAGE (7, ’OFTION ?’);OF:=FRENCAR(C’'1’,’2’1); 
MESSAGE(9,’NOM DU ‘’);IF OF=’1’ THEN HWRITE(’FICHIER:’) ELSE WRITE 
(‘DISQUE : ’ ); IF OF=’1 THEN 15=15 ELSE 1:=7; 
CXSUV-) 
FRENCHAINE(I,(LC'A’..’2Z’,"0”..’9’,".’3},ST); 
(KSUV+x ) 
IF ST=’’ THEN EXIT(TRINOM); 
GOTOXY(0, 3); HRITE(EFB); 
MESSAGE(3,’CATALOGUE DU ‘); 
IF OF=’1’ THEN HWRITE(’FICHIER»S’,ST) 
ELSE WRITE(’DISQUES’,ST); 
IF IMF THEN 
BEGIN 
MESSAGE(10,’ XMMXMM SUR L'’'IMFRIMANTE XxXmxmx’); 
WRITE(FAFIER,’ ’#i5, CATALOGUE OÙ ‘’); 
IF OF=’1’ THEN WRITE(FAFIER, ‘FICHIER: ’,ST) 
ELSE NWRITE(FAFIER, ‘DISQUE!’ ,ST) ;MRITELN(FAFIER); 
END; 
r TITRE; 
FOR I:=1 TO NUMCAT-1 DO 
| BEGIN 
GET (GARDE ) ; 
IF ({0OF=’1/) AND (CGARDE'.NOMFILE=ST)) 
OR {(0F=’2’) AND (GARDE, NOMDISK=ST)) THEN 
IF IMF THEN IMFRIME(I,; GARDE") ELSE AFFICHE(I,GARDE”) 
END 
END; 
FROCEDURE TRINUM; 
VAR I,N :INTEGER; 
OF CHAR; 
BEGIN 
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:=0; 
HESSAGE(5,’<1> NUMERO DU FICHIER”); 
MESSAGE(6,’<2> NUMERO DE BOITE’); 
MESSAGE(7, OPTION ?’);OP3=PRENCAR(C/1’,/2/1); 
REFEAT 
MESSAGE (9, ‘NUMERO ’); 
IF OP=’1’ THEN HRITE(’OU FICHIER!) ELSE HRITE(’DE BOITE :’); 
ENTIER (4, N) 
UNTIL (N<NUMCAT ); 
TF N=0 THEN EXIT (TRINUM); 
GOTOXY(0,3);HRITE(EFE); 
IF OF=’1 THEN 
BEGIN 
TITRE; 
SEEK (GARDE , N) ;GET(GARDE ) ; AFFICHE (N, GARDE ) 
END ELSE 
BEGIN 
MESSAGE(3,’ CONTENU DE LA BOITE NUMERO ‘ );HRITE(N); 
IF IMF THEN 
BEGIN 
MESSAGE (10, XX SUR L''IMPRIMANTE xxx" ) ; 
HRITE(PAFIER,’ ‘115, CONTENU DE LA BOITE NUMERO ‘,N); 
HRITELN(PAPIER) ; 
END; 
TITRE; 
FOR I!=1 TO NUMCAT-1 DO 
EGIN 
GET (GARDE ) ! 
IF GARDE".NUMEOITE=N THEN 
IF IMF THEN IMPRIME(I, GARDE) ELSE AFFICHE(I, GARDEA) 
END 
END 
END; 
PROCEDURE LIRE; 
VAR CHOIX :CHAR; 
BEGIN 
QUIT:=FALSE ; 
GOTOXY(0,2) ;HRITE(EFE); 
MESSAGE(3,/LE CATALOGUE DOIT ETRE DANS LE DRIVE 2’); 
HHILE NOT QUIT DO 
BEGIN 
GOTOXY (0,4) }HRITE (EFE ) ; NUMLIGNE : =6; 
MESSAGE(4,’<0>:EDITION COMPLETE” ); 
MESSAGE(S,’<1>:EDITE FAR GENRE & TYPE’); 
MESSAGE(6, ’<2>:EDITE FAR NOM (DISQUE OU FICHIER )’); 
MESSAGE (7, ’<3>:EDITE FAR NUMERO (BOITE OU FICHIER)’ )}; 
HRITE (INV) 3 IMF :=FALSE ; 
MESSAGE(9,’OFTION ?’)CHOIX:=PRENCAR(C’0’,,’3’1); 
MESSAGE(9, VOULEZ-VOUS IMPRIMER ? ’);IMF:=OUI; 
HRITE (NORM) ; 
IF IMF THEN TRAIT; 
GOTOXY(0,3);HRITE(EFE) ; 
SEEK (GARDE; 1 ); 
CASE CHOIX OF 
‘0/:TRI; 
’1'#TRIGT; 
’2°:TRINOM; 
* 373 TRINUM 
END; 
IF IMF THEN TRAITFIN; 
MESSAGE(22,/UNE AUTRE RECHERCHE (O/N) ? ’)QUIT:=NOT OUI 
END 
END; 
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Ce programme, baptisé &LOAD, effectue un valeur doit être inférieure à 512, pour ne 
chargement rapide de tout programme en pas écraser la pile ni la page zéro. Si le 
binaire, Y compris les images graphiques: nom du fichier est donné entre guillemets, 
ceci est rendu possible par l'appel direct de les blancs sont significatifs, sauf s'il sont 
la RWTS et le chargement direct de chaque placés à droite. 

secteur à son adresse définitive (sauf le 

premier et le dernier, pour ne pas “abîimer" Dans cette version, la routine se dissimule 
l'environnement). Grâce à ce programme, une entre le DOS et ses buffers. Ces buffers sont 
image graphique haute résolution est chargée descendus de deux pages, ce qui peut être 


en trois secondes, et même moins si le moteur ennuyeux si on utilise &LOAD dans un 
est déjà lancé. programme qui positionne HIMEM très haut en 
mémoire. 


Cette routine requiert 48K de mémoire, le DOS 
3.3 à son adresse habituelle et l'Applesoft [ne autre solution consiste à la dissimuler 
en ROM. Elle peut être appelée sous dans le premier buffer du DOS en $9AA6, ce 
Applesoft, à partir d'un programme ou en mode qui permet, si l'on ne touche pas à MAXFILES, 
direct. Elle ne fonctionne ni en Integer, ni un fonctionnement normal de la plupart des 
en mode moniteur, car la commande "&" n'est programmes. Il est en effet rare que l'on ait 
pas interprétée dans ces deux cas. Ewfin, plus de deux fichiers ouverts simultanément. 
nous rappelions qu'elle ne s'applique qu'aux La procédure à suivre est alors la suivante 
fichiers de type binaire. remplacer les lignes 68 à 70 par RTS, et 
changer 1l'ORG de la ligne 74 de $9B00 à 
Elle ne détruit aucune adresse mémoire de la $9AA6. 
page 0, sauf bien sûr celles utilisées par 


RWTS. Elle nécessite un seul pointeur page 0, Le programme a été écrit à l'aide de 

qui est d'ailleurs restauré à la fin, et des l'assembleur BIG MAC, qui est à mon avis 

adresses inutilisées dans le DOS. intrinsèquement supérieur au LISA 2.5. Il 
autorise en particulier l'assemblage 

La syntaxe est la suivante : conditionnel et l'utilisation de minuscules 

&nomfichierl,adresse de chargement] dans les commentaires. 

ou bien : 

&variablealpha(,adresse de chargement] Note de la rédaction : nous avons grâce 
&LOAD chargé en 9 secondes au lieu de 30 un 

L'adresse de chargement est optionnelle; elle fichier de 14 secteurs. Question : les 

peut être un nombre ou une variable adresses AA60 (iongueur de fichier) et AA72 

numérique, mais elle doit être décimale. Sa (début) ne sont plus valables. Où les 


trouve-t-on 7? 


LIBRAIRIE LA NACELLE 


INFORMATIQUE e ÉLECTRONIQUE e AUTOMATISME e MICROPROCESSEUR 


TOUS OUVRAGES ET ABONNEMENTS 
FRANÇAIS ET ETRANGERS 


Tous les ouvrages français ou étrangers signalés dans cette revue peuvent être obtenus ou commandés à La Nacelle 


2, rue Campagne-Première 75014 PARIS - Tél. 322 56 46 


Métro Raspail - Parking à la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 à18 h 50, samedi fermeture à 17 h 50. 
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1 ORG $9000 
2 x 
3 x 
4 XKKEANENEEENEENNENNEAENEANEREREMENMKMK 
5 x x 
6 x &ELOAD x 
7 x x 
8 x Jacques Tran-Var x 
9 x x 
10 KXAKEANKENENEANEANNENENRENMENEMANMEANNMK 
11 x 
12 x DBLOAD CHARGE. 0BJ.A 99084 
1909 % 18/04/82 JEALR-331 
14 x 
15 x aPôcs.722A 
16  PTR EQU $1E JAM ones NIUE où Para ee 
17 START EQU $#1E N207 00 00 20 99 70 où ou E 
18 VALTYFE EQU $#11 P20- CD O0 F7 A9 Pa 00 01 70 
19 TRAF EQGU $48 avenant 
20  LINUM EQU $50 9020: A9 48 DCE 87 20 01 08 
21  CHARGET EQU $EB1 Se59- AA CB CO LE 9 EF 80 34 
22 CHARCOT EQU +87 MERE 08 On NE 49 AS 00 de à 
23 TXTFTR  EQU $B8 ÉOPPHELEEE 
24 AMPFERVT EQU $#3FS mg: 9 O7 SR LE OA A7 ne 00 
25  ERHANDL EQU $A6DS MODELE LTTE 
AE PÉRFÉREE 
L1 æ ï 
Se IE 
ALAEU ME À EAUECAAORC HE MRERELE 
31  SAUV2 EQU $AAAD FFE 19 69 29 18:00 AE AA C9 
32  TEMP EQU S$AAAE Nm Dir aines 
33 FLAG EQU S$AAAF Qu11- ES 0 LE DO PO 09 PE na 
34  ADRFLAG EQU $AABDO VADNZ AC ME MA 9 07 03 QD. ED 
M eue NE 
AS 1€ M 2F 26 
37 RATS EQU $B7B5 cl PE à 
38 IO8B EQU $B87E8 DURS RES 
39 VOLUME  EQU I0E:+3 PH ENT 
nel ON ea dns M NeBRUSS 
+ 3 
42  BUFADR  EQU  IOE:+a MA AE A DA LE F4 87 Le 37 
D #0 ED 93 
43  COMMAND QU  IOE:+12 pt= ON A 20 EA PC 20 où °c 
44 BASCERRK EQU $D412 Mr bed HET 
45 FRMNUM EQU $DD67 TR Ce TC 
46  FRMEVL  EQU $DD7E MES: 90 EC 7 AC 19 ?C 00 80 
47 CHKCOM  EQU $DEBE Nés mioermamers 
48  PTRGET  EQU $0FE3 ROSE PRO 
N Ode EN 
V278- 95 :F 64 
S1 x ixEi *e i4 
S2 x 
9000! A9 00 53 LDA +#+<ENTREE positionne le vecteur 
9002; 8D Fé 03 54 STA AMPERVT+1 jd’ampersand 
9005! A9 9B 55 LDA #>ENTREE 
9007: 8D F7 03 56 STA AMPERUVT+2 
9004! A9 4C 57 LDA +#$4C 3?‘ UMP’ 
900C! 8D F5 03 58 STA AMPERVT 
900F: A2 00 59 LDX #0 
9011: BD 28 90 60 MOVEFGM LDA MOVEADR;,X ‘cache le pan entre 
9014% 9D 00 9B 61 STA ENTREE, X le dos et ses buffers 
9017? EB 62 INX 
9018: D0 F7 63 BNE MOVEPGM 
9014: 8D 2E 91 64  MOVEPGMI LDA MOVEADR+256, X 
901D: 9D 00 9C 65 STA ENTREE+256,X 
9020: E8 66 INX 
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AI 


9021: 
9023: 
9025: 
9028: 


D0 
A9 
8D 
AC 


F7 
9A 
01 
D4 


1E 
AC 
1F 
AD 
B7 
22 
28 
06 
Ci 
00 
EE: 
B1 
22 
OC 
80 
75 


1E 
EF 
34 
EF 
C1 
B1 
00 
Ac 


B8 
B9 


7B 
11 
08 
A3 
FS 
12 


E9 


B8 
E3 
1E 
1F 
00 
1E 
05 
0B 
DA 
AB 


1E 


90 
A7 


AA 


AA 
00 


B7 
00 


AA 


DO 


9c 
D4 


DF 


9c 
AA 


MOVEADR 
x 


x 
ENTREE 


INFLOOF 


ENDNAME 


x 
NOCONST 


x 
STRING 


SYNTAX 


NONUL 


MOVEFGM1 
#++9A 
$9D01 
CLNBUFF 


x 
$9B00 


FTR 
SAVI 
FTR+1 
SAV2 
CHARGOT 
4" 
NOCONST 
#6 

$Ci 

#0 
VOLUME 
CHARGET 
sg’ 
ENDNAME 
#+$90 
NAME, Y 


+30 
INFLOOF 
SYNTAX 
$$EF 
$C1 
CHARGET 
+0 
ENDSTOR 


TXTPFTR 
TXTPFTR+1 


FRMEVL 
VALTYPFE 
STRING 
#$A3 
RESTORE 
BASCERR 


TXTPFTR+I 


TXTFTR 
PTRGET 
PTR 
FTR+i 
+0 
(PTR),Y 
NONUL 
#11 
ERROR 
LENGTH 


(PTR),Y 
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ST —— 2 ———————— 


#decsale les buffers des 2 pages 
set les reconstruit 


sauve les menoires page 0 
$futilisees par le poam 


$ftitre entre apostrophes ? 


$nodifie CHARGET pour qu’elle 
accepte les espaces 


#fvolume prevu 
flit le caractere suivant 


ffin du titre 

$leve le bit de poids fort 
sauve le non dans NAME 
Pas plus de 30 caracteres 
#si trop lone, ’SYNTAX ERROR’ 


restaure CHARGET 


#’termine par des espaces 
#retour au BASIC 


sauve le pointeur de CHARGET 


#fevalue l'expression 

#’controle le type de 13 variable 
ÿsi < 0, alphanumerique 

code de ‘TYPE MISAMATCH’ 


teffichage du message d'erreur 


#recupere le pointeur initial 


#trouve le pointeur de variable 
sie range dans FTR 


 lonQaueur du nom 
le string existe 


sretour au BASIC, et ‘’SYNTAX ERROR’ 


#fpointeur vers les valeurs 
dans FTR 
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9B6E* B1 1E 131 LDA (PFTR),Y 
9870% 85 1F 132 STA FTR+i 
9872: 68 133 FLA 
9873% 85 1E 134 STA FTR 
9675 A0 00 135 LDY #0 
9877% B1l 1E 136 STORE LDA (PFTR),Y Sauve le titre daris NAME 
9879*: 09 80 137 ORA +$80 
9B7B* 99 75 AA 138 STA NAME, Y 
987E* C8 139 INY 
987F% CC AB AA 140 CFY LENGTH 
9682 D0 F3 141 BNE STORE 
9884° A9 AD 142 ENDSTOR LDA +" " complete le nom par des espaces 
9886: 99 75 ÀAÀ 143 SPACE STA NAME, Y 
9E89: C8 144 INY 
9B8A$ C0 1E 145 CFY +30 
9B8C* D0 F8 146 BNE  SFACE 
9B8E* 8D B0 AA 147 STA  ADRFLAG #’flaa d’adresse < 0 
148 x 
9691; 20 F5 9C 149 USR RESTORE #ÿrestaure le pointeur(si erreur) 
9B94% 20 B7 00 159 USR CHARGOT #43 8a-t-il sutre chose derriere ? 
9897% F0 12 151 BEQ SEARCH ÿnon 
9899: 20 BE DE 152 USR  CHKCOM #alors il faut une viraule ! 
9B9C* 20 67 DD 153 USR FRMNUM #evalue la formule qui suit 
9B9F* 20 52 E7 154 USR GETADR renge l’adresse dans LINUM 
9BA2% ÀS 51 155 LDA LINUM+1 :3i adresse de chargement < $200 
98A4: C9 02 156 CMF. +2 alors erreur ‘! 
9BA6S 90 B9 157 BCC SYNTAX 
9BAS* 4E B0 AA 158 LSR  ADRFLAG ’f13a d'adresse > 0 
159 x 
9BABS A9 01 160 SEARCH LDA #1 #commande lecture pour la RHTS 
9BAD* 8D F4 B7 161 STA COMMAND 
98B0* A9 10 162 LDA #$10 
9BB2*% BD ED B7 163 STA SECTOR 
9EB5, A9 11 164 LDA +#$11i 
9887: 8D EC EB7 165 STA TRACK 
9BBA* 20 Eé 9C 166 USR  SETBUF * BUFFER pris comme buffer 
9BBD* CE ED 87 167 NEXTSCT DEC SECTOR secteur suivant 
9BC0* F0 46 168 BEQ NOFILE #fin de la directory 
9BC2% 20 CB 9C 169 USR READSCT lecture du secteur 
9ÉCS? A0 EE 170 LDY +$EB 
9BC7* 8C AE AA 171 STY TEMF 
9BCAS AD AE AA 172 NEXTFIL LDA TEMF 
9BCD* 18 173 CLC 
9BCES 69 23 174 ADC #35 
9BD0* A8 175 TAY #pointe vers le prochain titre 
9BD1* 8D AE AA 176 STA TEMF 
9BD4* C9 03 177 CMF #3 
9BD6$ F0 ES 178 BEQ NEXTSCT #’fin du secteur 
9BD8* A2 00 179 LDX #0 
9BDA: B9 BB 83 180 TESTNOM LDA BUFFER, Y 
9BDD* F0 29 181 BEQ NOFILE $fin de la directory 
9BDF? DD 75 AA 182 CMF NAME, X compare le nom 3 NAME 
9BE2* D0 E64 183 BNE NEXTFIL 
9BE4: C8 184 INY 
9BES* E8 185 INX 
98E6* ED 1E 186 CPFX +30 
9BE8* D0 F0 187 BNE TESTNOM fin du nom ? 
188 x 
9BEA+ B9 9C B3 189 LDA BUFFER-31,Y ;quel est son type ? 
9BED* 29 04 190 AND #4 fbinaire(4 ou 84) ? 
9BEF* D0 04 191 BNE FINDFIL foui bon type 
9BF1; A2 0D 192 LDX +13 code de ’FILE TYFE MISMATCH’ 
| 9BF3% DO 15 193 BNE ERROR 
| 9BFS$ AC ÀE AA 194 FINOFIL LDY TEMF $recupere le pointeur de non 
| 9BF8: 89 B9 B3 195 LDA BUFFER-2,Y 
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Vs manette Pom'’s n° 4 
ES 








NOFILE 
ERROR 


LOAOFGM 
NEXTSL 


INPSECT 


NOADR 


NEXTONE 


x 
LASTSCT 


SECTOR 
EUFFER-3, Y 
NEXTFIL 
TRACK 
LOAOFGHM 

+6 

ERRCODE 
RESTORE 
SETVID 
ERHANOL 


FLAG 
RKEADSCT 
#+$0C 
START 
START+1 
LOCBUF 
FLAG 
INFSECT 
SETTAMF: 
READFGM 
FLAG 
NEXTONE 
ADRFLAG 
NOADR 
LINUM 
TAMFON 
LINUM-+1 
TAMFON+1 


TAMPON 
+4 

START 
BUFADR 
TAMPFON+1 
+0 
START+1 
EUFAOR+1 
+4 
DEPFLACE+1 


TAMPFON+2 
LENGTH 

+0 
ENDMOVE+1 
FLAG 
BUFFER+14 
LAST 


DEPLACE 
TEMF 
BUFADR+1 
START+1 


+$FE 
ENDTSL 
BUFFER+2, X 
INPSECT 


SETTAMF 
REAOFGHM 
#0 

TRAF 
DEFLACE+1 
LENGTH 
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+ du secteur de 13 TSL 
+ de 13 piste de 13 TSL 
si efface, le saute 

























































charger le programme 

code de ‘FILE NOT FOUND’ 

#rançge le code de l’erreur 
#’restaure les memoires page 0 
*FR#O 

#saut 8 la routine d'erreur du DOS 


finitislisetion de FLAG(<> 0) 
flit la TSL dans BUFFER 
#pointeur dans la TSL 
$recupere l’asdresse du buffer, 
si c'est 13 eme TSL 


$si = 0, lit le secteur 
* TAMPON est pris comme buffer 
; lecture du secteur du pan 


$charaement a une autre sdresse ? 
. 
ÿnon 


calcule les adresses 
de debut de programme; 
et de charaement 


depart du ’move’ du ier 


jsecteur du pan 


* sugmente la longueur de 4 
#longueur du dernier secteur 
jfin du ’move’ 


annule le flsa 
fun autre secteur a lire ? 
c’est le dernier 


* deplace le secteur 

recupere le pointeur dans la TSL 
buffer suivant 

ÿincremente l’asdresse destination 
secteur suivent 

dernier de cette TSL ? 

foui 

34 a-t-il une suite ? 


$TAMPFON comme buffer 
sliit le dernier secteur du pan 


Voir Call Apple janvier 82 
fdeplsce 3 partir du debut 





= 





9C97: 
9C9A: 
9C9D: 


9c9F: 
9CA2: 
9CA4: 
9CA7: 
9CAAÀ: 
9CAD: 
9CAF: 
9cB2: 
9CB5S: 
9cB8: 


9CBB: 
9CBE: 
gcci: 
9cC2: 
9CCS: 
9cc8: 
9CCB: 
9CCD: 
9CCF: 
9CD2: 
9CD4: 
9CDé: 


9CD9: 
9CDB: 
9CDE: 
9CE0: 
9CE1: 
9CE3: 
9CES: 


9CE6: 
9CE8: 
9CEA: 


9CEC: 


9CEE: 
9CF1: 
9CF4: 


CFS: 
9cF8: 
9CFA: 
9CFD: 
9CFF: 


80 
20 
FO 


AD 
FO 
20 
AD 
8D 
E6 
20 
AD 
8D 
4C 


BD 
8D 
E8 
BD 
8D 
8E 
A9 
A0 
20 
90 
A2 
AC 


AG 
B9 
91 
c8 
CO 
DO 
60 


A0 
DO 
A0 


A9 


8D 
8c 
61 


AD 
85 
AD 
BS 
60 


9c 


B4 


87 
B7 


AA 


AA 


261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27% 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
2B9 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 


--END ASSEMBLY-- 


ERRORS: 


999 


40 


BYTES 


x 
ENDTSL 


x 
READFGM 


READSCT 


x 
DEF'LACE 
MOVE 


ENDMOVE 


NOERROR 
x 


SETBUF 


SETTAMF 
x 


COMMUN 
x 


LOCEUF 


x 
RESTORE 


ENDMOVE +1 
DEPLACE 
RESTORE 


EUFFER+1 
LASTSCT 
READEFGM 
BUFFER+2 
SECTOR 
START+1 
SETEUF 
EUFFER+1 
TRACK 
NEXTSL 


BUFFER, X 
TRACK 


BUFFER » X 
SECTOR 
TEMF 
&>I0E 
#+<IO0B 
RWTS 
NOERROR 


+0 
TAMPON, Y 


(START): Y 


#00 
MOVE 


#>BUFFER 
COMMUN 
#&> TAMPON 


#<EUFFER 
EBUF ADR 
BUFADR+1 


SAVI 
PTR 
SAV2 
PTR+1 
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’ ’lonaueur’ du dernier secteur 
# deplacerent 


retour au EASIC 

+ de secteur pour la TSL suivante 
Pas de Z2nde TSL 

#lit le dernier secteur de la TSL 
+ de secteur de la 2nde TSL 
fbuffer suivant(pour la suite) 


12 2nde TSL est lue dans BUFFER 
+ de piste de 13 Z2nde TSL 


piste 


#secteur 

sauve le pointeur 
adresse de 1‘’I0B 

#( pour un 48K ) 

pas d‘’erreur 2 la lecture 
$fcode de ‘’I/0 ERROR’ 
retour au BASIC 

#'’poke’ les valeurs 


de depaæert et de fin 
de cette routine 


#BUFFER pris comme buffer 
? TAMPON pris comme buffer 
*EUFFER et TAMPON consecutifs 


#positionne le pointeur de buffer 


restaure les memoires page 0 
$jutilisees par le po" 


Les codes ASCIT épluchés 





Certains 
copier 
revues 
mais 


de nos lecteurs nous ont reproché de 
des articles déjà parus dans des 
étrangères. La critique est aisée, 
l'art est difficile ! De par leur 
nombre, leur périodicité et leur antériorité, 
les revues américaines ont accumulé un nombre 
impressionnant d'articles. Il serait 
assurément possible à un collectionneur 
assidu des Softalk, Call-Apple, Nibble, 
Compute et autres revues de trouver pour la 
majorité des articles parus dans Pom's un 
article déjà publié traitant du même sujet ou 
ayant des ressemblances. 


Devrions-nous nous abstenir de publier des 
articles sur le DOS, des comparaisons entre 
les systèmes de traitements de texte, une 
initiation à l'assembleur, etc... sous 


des choses semblables ont été 
revues étrangères ? Outre que 

lisent pas tous l'anglais 
n'a pas toujours le loisir 
d'avaler (et de digérer ...) une dizaine de 
revues par mois. Nous tenons à vous offrir 
une revue intéressante, vivante et utile, 
avec le maximum d'articles originaux. Mais, 
lorsque nous trouvons des choses 
intéressantes chez les autres, pourquoi ne 
pas vous en faire profiter 7? C'est le cas 
ici, puisque les tableaux 1 à ! nous ont été 
inspirés par un article de la revue Micro, 
the 6502 and 6809 Journal, du mois d'octobre 
1981. 


prétexte que 
vues dans des 
nos lecteurs ne 
couramment, on 


Nous espérons 
et qu'ils 


que ces tableaux vous aideront 
seront en bonne place dans votre 


aide-mémoire. Afin que leur utilisation vous 
soit plus facile, voici ci-dessous les 
explications concernant chaque colonne 

*  HEXA contient tous les nombres 
hexadécimaux de $00 à $FF. 

#* DECIMAL traduction décimale du nombre 
hexadécimal. 

* BINAIRE octet de 8 bits représentatif du 
nombre en hexa. 

# DEC*256 valeur décimale de l'octet haut 
d'un nombre ou d'une adresse 16 bits. 

* ASCII signe ASCII attribué au nombre 
hexa correspondant. Ce code étant exprimé en 
7 bits, les signes sur les valeurs de $00 à 


$7F sont identiques à ceux des valeurs de $80 
à $FF. 

* ECRAN : le manuel de référence donne en 
page 15 la correspondance exacte entre la 
valeur hexa et sa représentation sur l'écran. 
Les lettres I, F et N représentent les modes 


Inverse, Flash et Normal. les valeur non 
affichées à l'écran sont remplacés par des 
tirets. 

* TOUCHE indique la touche à appuyer afin 
d'obtenir la valeur correspondante. A noter 
que lesvaleurs $00 à #$7F ne peuvent être 
obtenues à partir du clavier. Les lettres C, 
S et CS représentent les touches Control, 


Shift et la combinaison des deux. 
*#  OPCODES : représente en mnémoniques 6502 la 
signification des différentes valeurs hexa, 


dans le cas du langage machine. Les notations 
suivantes ont été utilisées 

A absolu Im immédiat 

A,X absolu indexé par X (I) indirect 

A,Y absolu indexé par Y ZP page zéro 
(I,X) indirect indexé par X 

(I,Y) indirect indexé par Y 

ZP,X page zéro indexé par X 

ZP,YŸ page zéro indexé par Y 

* TOKEN le BASIC Integer et l'Applesoft 
utilisent, afin de diminuer l'encombrement 
mémoire, un codage des mots réservés du 
BASIC. Les codes $00 à $7F sont réservés à 
l'Integer, ceux entre $80 et $FF à 
l'Applesoft. Dans le cas de l'integer, où un 
même signe peut avoir plusieurs codes selon 


le contexte, un court est donné à 


droite de la colonne. 


exemple 
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TABLEAU 1 


($00 a $35F) 


IHEXA! DEC ! BINAIRE 


1 |!1—_—— ! 


mi mm um un cm cum nu dm un due qu dm num bout num ee dun dun not de nu du num he don ton ho hum be due «0e «0e don dot don sp de dun om don nn dé du de à um 40 don nom dom nue de dun de num dut nn ue non à à à à 


© © NO OUI = UN = © 


00000000 O ! nul 
09000001 ! 254 ! soh 
00090010 ! 912 ! stx 
00090011 ! 768 ! etx 
00000100 ! 1024 ! ent 
00000101 ! 1280 ! enq 
00000110 ! 1536 ! ack 
00000111 ! 1792 ! bel 
00001000 ! 2048 ! bs 
00001001 ! 2304 ! ht 
00001010 ! 2560 ! 1f 
00001011 ! 2816 ! vt 
00001100 ! 3072 ! Ff 
00001101 ! 3328 ! cr 
00001110 ! 3584 ! so 
00001111 ! 3840 ! si 
00010000 ! 4096 ! die 
00010001 ! 4352 ! del 
00010010 ! 4608 ! de2 
00010011 ! 4864 ! des 
00010100 ! 5120 ! dc4 
00010101 ! S376 ! nak 
00010110 ! S632 ! syn 
00010111 ! 5888 ! etb 
00011000 ! 6144 ! can 
00011001 ! 6400 ! ea 
00011010 ! 6656 :! sub 
00011011 ! 6912 ! esc 
00011100 ! 7168 ! fs 
00011101 ! 7424 ! gs 
00011110 ! 7680 ! rs 
00011111 ! 7938 ! us 
00100000 ! 8192 ! 

00100001 ! 8448 ! ! 
00100010 ! 8704 ! ” 
00100011 ! 8960 ! # 
00100100 ! 9216 ! $% 
00100101 ! 9472 ! % 
00100110 ! 9728 ! %x 
00100111 ! 9984 ! ” 
00101000 ! 10240 ! 
00101001 ! 10496 ! ) 
00101010 ! 10752 ! 3% 
00101011 ! 11008 ! + 
00101100 ! 11264 ! , 
00101101 ! 11520 ! - 
00101110 ! 11776 ! . 
00101111 ! 12032 ! ?/ 
00110000 ! 12288 ! O 
00110001 ! 12544 ! 1 
00110010 ! 12800 ! 2 
00110011 ! 13058 ! 3 
00110100 ! 13312 ! 4 
00110101 ! 1356B-! 5 
00110110 ! 15824 ! 6 
00110111 ! 14080 ! 7 
00111000 ! 14336 ! 8 
00111001 ! 14592 ! 9 
00111010 ! 14848 ! : 
00111011 ! 15104 ! ; 
00111100 ! 15360 ! < 
00111101 ! 15616 ! = 
00111110 ! 15872 ! > 
00111111 ! 16128 ! 7? 


DO PUINRXECCANTOVOZ ET ROUMIONMONMDE 


PT Len Len Les Los Len Los Los Len Las Los Los Los Los Loue Los Los Les Los Les Los os Lan Le Leo loe es Le Lee leslen es Le e RO S nle Lo LL ele 
1 += RME E.- 


JvlilAse CONCURUNMmONNn 
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1DECS256! ASCI I 'ECRAN ! TOUCH' OPCODE-6502 ! 


= mm ————— 
. . É E 


BRK 
ORA-(1I,X) 


Debut de ligne 


TOKEN INTEGER 


Fin de ligne 


L 
: 
2 
: 
4 
Non utilise : 
: separateur ! 
LOAD K7 ! 
SAVE K7 ! 
CON ! 
RUN ligne n ! 
RUN debut ! 
DEL ‘ 
A DEL 0,5 ! 
NEW D 
CER . 
AUTO , 
; AUTO 0,5 ! 
MAN ! 
HIMEN: ! 
LOMEN: : 
+ operateurs ! 
"7 nuseriques ! 
$ par exesple: ! 
/ A=148(27+15)! 
= ' 
# operateurs ! 
>= logiques ! 
> pour : 
<= variables ! 
<> nuseriques ! 
€ par exesple! 
AND IF X>=12 ! 
OR te ù 
NOD ! 
fn ' 
Non utilise ! 
( DIM A$(S)! 
3 A8 (3,3)! 
THEN IFX=3THEN10! 
THEN 1IFX=3NÆNA=2! 
; INPUT"ST",AS! 
5 INPUT'ST®*,A! 
4 D{but ! 
dé Fin! 
( AS (5) ! 
Non utilise ! 
Non utilise ! 
( (3)! 
PEEK 
RND : 
SGN . 
ABS - 
PDL , 
Non utilise L 
( DIM A(S)! 
+ A=+3! 
_ A=-5! 
NOT ! 
( , 
=  IFA$S="C"THÆN..! 
# IFASS#"C"THEN..! 
LEN( : 
ASC ( , 
SCRN( : 
n SCRN (5, 5) ! 
( 


TABLEAU 2 ($40 à $7F) 


L 

IHEXA! DEC ! BINAIRE ‘DEC#256 ASCII 'ECRAN'TOUCH'OPCODE-6502! TOKEN INTEGER  ! 
lmme— lmm——— lmermemmmme me —mmm—m—— Lm——— mms À mm — mm m—————m— Lomme me en mme me = = —— | 
! 40 ! 64 ! 01000000 ! 16384 ! à !F:9 ! - ! RTI 14 a$ ! 
! 41 ! 65 ! 01000001 ! 16640 ! A !F:A ! — ! EOR-(I,X) ! Non utilise ' 
1! 42 ! 66 ! 01000010 ! 16896 ! B !F:B! - ! — 1 ! 
! 43 ! 67 ! 01000011 ! 17152 ! € !F:C ! - ! —- Lt 
! 44 ! 6B ! 01000100 ! 17408 ! D !F:D! - ! —— jet ' 
1 45 ! 69 ! 01000101 ! 17664 ! E !F:E ! - !EOR-ZP  !; ! 
! 46 ! 70 ! 01000110 ! 17920 ! F !F:F ! — ! LSR-ZP  !; ' 
1 47 ! 71 ! 01000111 ! 18176 ! G !F:6! - ! —— 1; ' 
1 48 ! 72 ! 01001000 ! 18432 ! H !F:H ! - ! PHA Le : 
1 49 ! 73 ! 01001001 ! 18688 ! I !F:1 ! - !EOR-Im !, ' 
! 4A ! 74 ! 01001010 ! 18944 ! J !F:J ! — ! LSR les ' 
1 4B ! 75 ! 01001011 ! 19200 ! K !F:=K! - ! — 1 TEXT ' 
1 4C ! 76 ! 01001100 ! 19456 ! L !F:l ! — ! JW-A ' 6R Û 
! 4D ! 77 ! 01001101 ! 19712 ! M ! F:M! - ! EOR-A ! CALL 
1 4 ! 78 ! 01001110 ! 19968 ! N !F:N ! - ! LSR-A ! DIM DIM A$(3)! 
1 4F ! 79 ! 01001111 ! 20224 ! OQ !F:D! -  —— DIM DIM A(S)! 
! 50 ! 80 ! 01010000 ! 204B0 ! P !F:P ! — ! BVC ! TAB : 
! S1 ! 81 ! 01010001 ! 20736 ! @ !F:@ ! - ! EOR-(1),Y ! END 
! 52 ! 82 ! 01010010 ! 20992 ! R !FiR! - ! —— 1 INPUT INPUT A$:! 
! 53 ! 83 ! 01010011 ! 21248 ! S !FiS ! - ! — ! INPUT INPUT“T", AS: 
! 54 ! 84 ! 01010100 ! 21504 ! T !F:T! - ! — ! INPUT INPUT A! 
1: 55 ! 85 ! 01010101 ! 21760 ! U ! F:U ! - ! EOR-ZP,X ! FOR 
1 56 ! 86 ! 01010110 ! 22016 ! V !F:V ! — ! LSR-ZP,X ! = FOR I=1 TO 5! 
1 37 ! 67 ! 01010111 ! 22272 ! W !FiW! - ! —— ! TO ' 
1 58 ! 88 ! 01011000 ! 22528 ! X !F:X ! — ! CLI ! STEP ' 
1 59 ! 69 ! 01011001 ! 22784 ! Y ! F:Y ! — ! EOR-A,Y  ! MEXT 
1 SA ! 90 ! 01011010 ! 23040 ! Z 1F:Z 1! - 1 — !, 4 NEXT 1.9! 
1 5B ! 91 ! 01011011 ! 23296 ! L !F:£ ! - ! — ! RETURN ' 
! 5C ! 92 ! 01011100 ! 23552 ! \ ! Fi! - ! —— ! GOSUB ! 
1 SD ! 93 ! 01011101 ! 23808 ! 1 ! F:3 ! — ! EOR-A,X  ! REM Ù 
1 SE ! 94 ! 01011110 ! 24064 ! * !F:* ! — ! LSR-A,X ! LET ' 
! Œ ! 95! 01011111 ! 24320 ! _ !F:_! - ! —— ! G0TO 
1 60 ! 96 ! 01100000 ! 24576 ! UF: ! — 1 RTS “IF 
! 61 ! 97 ! 01100001 ! 24832 ! a ! Fi! ! — ! ADC-(I,X) ! PRINT PRINT A$:! 
! 62 ! 98 ! 01100010 ! 25088 ! b !F:" 1! — 1! — ! PRINT PRINT A! 
! 63 ! 99 ! 01100011 ! 25344 ! © !Fi#! — ! — ! PRINT PRINT! 
! 64 ! 100 ! 01100100 ! 25600 ! d ! F:$ ! — ! —— i POKE Û 
! 65 ! 101 ! 01100101 ! 25856 ! e ! F:X ! — ! ADC-ZP  !, POKE 3,3! 
! 66 ! 102 ! 01100110 ! 26112 ! +# !F:& ! - ! ROR-ZP  ! COLOR= ' 
1 67 ! 103 ! 01100111 ! 26388 ! g !F:° 1! — ! — ! PLOT Ù 
! 68 ! 104 ! 01101000 ! 28624 ! h !F:{ ! — ! PLA Car PLOT 3,3! 
1 67 ! 105 ! 01101001 ! 26880 ! i !F:).! — ! ADC-Im  ! HLIN 
! 6A ! 106 ! 01101010 ! 27136 ! j !F:$ ! — ! ROR Div HLIN 3,5 AT! 
! 6B ! 107 ! 01101011 ! 27392 ! k OO! Fit! — 1! —— 1 AT HLIN 3,5 AT! 
1 6C ! 108 ! 01101100 ! 27648 ! 1 !F:, ! — ! JMP-(1) ! VLIN : 
! 6D ! 109 ! 01101101 ! 27904 ! æ !F:- ! — ! ADC-A Ans VLIN 3,5 AT! 
! &E ! 110 ! 01101110 ! 28160 ! n !F:. ! — ! ROR-A 1! A7 VLIN 3,5 AT! 
! 6F ! 111 ! 01101111 ! 28416 ! © !Fi/! — ! —— ! VTAB ! 
! 70 ! 112 ! 01110000 ! 28672 ! p !F:0 ! — ! BVS = A$="HELLO® 
1 71 ! 113 ! 01110001 ! 28928 ! q ! F:1 ! - ! ADC-(1),Y ! = A=3! 
1 72 ! 114 ! 01110010 ! 29184 ! Fr 1! F:21 — 1! —— 1) 
1 78 ! 115 ! 01110011 ! 29440 ! s !F:3 1! — 1! — ! Non utilise ! 
t 74 ! 116 ! 01110100 ! 2969% ! t !F:4! — 1! — 1 LIST LIST 3,5: 
1 75 ! 117 ! 01110101 ! 29952 ! u !F:5 ! — ! ADC-ZP,X !, LIST 3,5! 
l ! 76 ! 118 ! 01110110 ! 30208 ! v ! F:6 ! — ! ROR-ZP,X ! LIST LIST! 
1 77 ! 119 ! O1110111 ! 30464 ! w !F:7 ! — 1! —— \ POP 
! 78 ! 120 ! 01111000 ! 30720 ! x ! F:B ! — ! SEI 1 NODSP  NODSP AS! 
1 79 ! 121 ! 01111001 ! 30976 ! y 1 F:9 ! — ! ADC-A,Y  ! NODSP NODSP A! 
1 7A ! 122 ! 01111010 ! 31232 ! 2 !Fis ! — 1 — ! NOTRACE ' 
1 7B ! 123 ! O1111011 ! 31488 ! € !Fiÿ ! — ! — ! DSP DSP AS! 
1 7C ! 124 ! 01111100 ! 31744 1 ? 1 Fi< 1 — 1 — 1 DSP DSP A! 
1 7D ! 125 ! 01111101 ! 32000 ! } !F:= ! — ! ADC-A,X ! TRACE ' 
! ZE ! 126 ! 01111110 ! 32256 ! * !F:»> ! — ! ROR-A,X  ! PR# 
1 7F ! 127 ! O1111111 ! 32512 ! rub ! F:7 1! — 1! — 1 IN4 ' 
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TABLEAU 3 ($B0 a $BF) 





'HEXA! DEC ‘ BINAIRE ‘DEC#25%6 ASCII 'ECRAN! TOÜCH'OPCODE-6502! TOKEN APPLESUFT 


1 1 1 4 1 


; 

: 
. : ù , : 
80 ! 128 ! 10000000 ! 32768 ! nul ! N:® ! —— ! —— ! END > 
! 81 ! 129 ! 10000001 ! 33024 ! soh ! N:A ! CA ! STA-{I,X) ! FDR ! 
! 82 ! 150 ! 10000010 ! 35280 ! stx ! N:B ! CB ! — ! NEXT 
! 83 ! 131 ! 10000011 ! 33536 ! etx ! N:C ! CC ! — ! DATA : 
! 84 ! 1352 ! 10000100 ! 335792 ! eot ! N:D ! CD ! STY-ZP ! INPUT . 
! 85 ! 133 ! 10000101 ! 34048 ! enq ! N:E ! CE ! STA-ZP ! DEL , 
! 86 ! 134 ! 10000110 ! 34304 ! ack ! N:F ! CF ! STY-7P ! DIM : 
! 87 ! 135 ! 10000111 ! 34560 ! bel ! N:6 ! C6 ! — ! READ : 
! 88 ! 156 ! 10001000 ! 34816 ! bs ! N:H ! CH ! DEY ! GR - 
! 89 ! 137 ! 10001001 ! 35072 ! ht ! N:I ! CI ! — ! TEXT : 
! 8A ! 138 ! 10001010 ! 35528 ! 1f ! N:J ! CJ ! TXA |! PR$ : 
! 8B ! 139 ! 10001011 ! 35584 ! vt ! N:K ! CK ! — ! IN 
! BC ! 140 ! 10001100 ! 35840 ! ff ! N:L ! CL ! STY-A ! CAL : 
! 8D ! 141 ! 10001101 ! 36096 ! cr ! N:M ! CM ! STA-A ! PLOT : 
! 8E ! 142 ! 10001110 ! 386352 ! so ! N:N ! CN ! STX-A ! HIN : 
! 8F ! 143 ! 10001111 ! 38508 ! si ! N:Q ! CO ! — ! WIN ! 
! 90 ! 144 ! 10010000 ! 36884 ! die ! N:P ! CP ! BCC ! H6ER2 L 
1 91 ! 145 ! 10010001 ! 37120 ! dci ! N:@ ! CB ! STA-(I),Y ! HGR ; 
! 92 ! 146 ! 10010010 ! 37376 ! dc2 ! N:R ! CR ! ——— ! HCOLOR= L 
! 95 ! 147 ! 10010011 ! 378632 ! des ! N:S ! CS ! — ! HPLOT : 
! 94 ! 148 ! 10010100 ! 37888 ! dc4 ! N:T ! CT ! STY-ZP,X ! DRAW è 
! 95 ! 149 ! 10010101 ! 38144 ! nak ! N:U ! CU ! STA-ZP,X ! XDRA : 
! 96 ! 150 ! 10010110 ! 3B400 ! syn ! N:V ! CV ! STX-ZP,Y ! HTAB - 
! 97 ! 151 ! 10010111 ! 38656 ! etb ! N:# ! CW ! — ! RHONE ; 
! 98 ! 152 ! 10011000 ! 38912 ! can ! N:X ! CX ! TYA ! ROT= : 
! 99 ! 155 ! 10011001 ! 39168 ! em ! N:Y ! CY ! STA-A,Y ! SCALE= : 
! 9A ! 154 ! 10011010 ! 397424 ! sub ! N:sZ ! CZ ! TXS ! SHLGAD - 
! 9B ! 155 ! 10011011 ! 39680 ! esc ! N:E ! esc ! — ! TRACE : 
! 9C ! 156 ! 10011100 ! 39936 ! fs ! Ni! —— ! — ! NOTRACE : 
! 9D ! 157 ! 10011101 ! 40192 ! gs ! N:1 ! CSM ! STA-A,X : MAL . 
! 9E ! 158 ! 10011110 ! 40448 ! rs ! N:° ! CSN ! — ! INVERSE - 
! 9F ! 159 ! 10011111 ! 40704 ! us ! N:_! —— 1! — ! FLASH : 
! AO ! 160 ! 10100000 ! 40960 ! ! Ns ! ! LDY-Ie ! COLCR= : 
! A1 ! 161 ! 10100001 ! 41218 1 ! ! Ns! ! S1 ! LDA-(I,X) ! POP : 
! 42 ! 162 ! 10100010 ! 414721 " 1! N:" ! S2 ! LDX-Im ! VTAB À 
! AS ! 163 ! 10100011 ! 41728 ! + ! N:#& ! SS Oo! — ! HIMEM: : 
! A4 ! 164 ! 10100100 ! 41984 ! $ ! N:$ ! S4 ! LDY-ZP ! LOREM: : 
! A5 ! 165 ! 10100101 ! 42240 ! %X ! N:%X ! S5 ! LDA-ZP ! DIERR ! 
! 46 ! 166 ! 10100110 ! 42496 ! % ! N:% ! S6 ! LDX-ZP ! RESUME : 
1 A7 ! 167 ! 10100111 ! 427521 ? !N:° ! S7 ! — ! RECAL : 
! 48 ! 168 ! 10101000 ! 43008 ! { ! N:C ! S8 ! TAY ! STORE . 
! À9 ! 169 ! 10101001 ! 43264 ! ) ! N:) ! 59 ! LDA-Ie ? : 
! AA ! 170 ! 10101010 ! 43520 ! # ! N:% ! S: ! TAX ! LET : 
! AB ! 171 ! 10101011 ! 43776 ! + ! N:+1 Ss ! — | GOTO : 
! AC ! 172 ! 10101100 ! 44032! , !N:, ! , ! LDY-A ! RUN : 
! AD ! 173 ! 10101101 ! 44288 ! — ! N:- ! — ! LDA-A 48 (a 
\ AE ! 174 ! 10101110 ! 44544 1, ! N:. ! . ! LDX-A ! RESTORE ; 
! 4F ! 175 ! 10101111 ! 44900 ! / !N:/ 1 7 ! — 1 & . 
! BO ! 176 ! 10110000 ! 4505 ! © ! N:0 ! O ! BCS ! BOSYB : 
! B1 ! 177 ! 10110001 ! 45312 1! 1 ! Ns1 ! 1 ! LDA-(1),Y ! RETURN - 
! B2 ! 178 ! 10110010 ! 45568 ! 2 ! N:321 2 ! — |! RE : 
! BS ! 179 ! 10110011 ! 45824 ! 35 !N:3! 3 ! —— ! STOP : 
! B4 ! 180 ! 10110100 ! 46080 ! 4 ! N:4 ! 4 ! LDY-ZP,X ! ON : 
! BS ! 1891 ! 10110101 ! 46338 ! 5 ! N:5 ! S ! LDA-ZP,X ! MIT S 
! B6 ! 182 ! 10110110 ! 46592 ! 6 ! N:6 ! 6 ! LDX-ZP,Y ! LOAD L 
1 B7 ! 183 ! 10110111 ! 46848 ! 7 1! N:7 1! 7 ! — | SAVE : 
! B8 ! 184 ! 10111000 ! 47104 ! 8 ! N:B ! 8 ! CLV ! DEF : 
1 B9 ! 1895 ! 10111001 ! 473860 ! 9 ! N:9 ! 9 ! LDA-A,ŸY ! POKE ; 
! BA ! 186 ! 10111010 ! 47616 ! 3 ! N:= ! >: ! TSX ! PRINT - 
! 8B ! 187 ! 10111011 ! 479721 3 ! Ness ! = ! — ! CONT : 
* BC ! 188 ! 10111100 ! 48128 ! < ! N:< ! <  ! LDY-A,X ! LIST : 
! BD ! 189 ! 10111101 ! 48384 ! = :! N:= 1! = ! LDA-A, ! CLERR - 
! BE ! 190 ! 10111110 ! 48640 ! > !N:> 1 > ! LDX-A,Y ! GET : 
! BF ! 191 ! 10111111 ! 48996 1 7 ! N:7 1 7 ! La ! NEW : 


4 





TABLEAU 4 ($C0 a %FF) 





1 —_— 


IHEXA! DEC ! BINAIRE ‘DECS256 ASCII !ECRAN! TDUCH'QPCODE-6502! TOKEN APPLESOFT  : 
1: 1 —————_—_—_—_—_—_—_—_—_—_—_—— 





! 

: 

! CO ! 192 ! 11000000 ! 49152 À 9 ! N:9 ! SP ! CPY-In ! TAB( : 
! C1 ! 193 ! 11000001 ! 49408 ! A ! N:A! A ! CHP-(I,X) ! TO ! 
! C2 ! 194 ! 11000010 ! 49664 ! B ! N:B! B ! —— ! FN . 
! CS ! 195 ! 11000011 ! 49920 ! CC ! NsC ! CC ! —— ! SPC ! 
! C4 ! 196 ! 11000100 ! 30176 ! D ! N:D ! D ! CPY-ZP ! THEN : 
! CS ! 197 ! 11000101 ! 50432 ! E ©! N:E ! E ! CMP-7ZP ! AT - 
! C6 ! 198 ! 11000110 ! S0688 ! F ! N:F ! F ! DEC-ZP ! NOT : 
! C7 ! 199 ! 11000111 ! 50944 ! G ! N:G! G ! —— ! STEP : 
: ! C8 ! 200 ! 11001000 ! 51200 ! H ! N:H ! H  ! INY JL ! 
! 9 ! 201 ! 11001001 ! 51456 ! E  ! N:I ! I  ! CMP-Ia  e L 
! CA ! 202 ! 11001010 ! 51712 ! J ! N:J ! J  ! DEX 2 : 
! CB ! 203 ! 11001011 ! 51968 ! K ! N:K! K ! —-— 4 : 
À ! CC ! 204 ! 11001100 ! 5224 ! L ! NsL ! L ! CPY-A Hé ; 
! CD ! 205 ! 11001101 ! 52480 ! M ! N:M ! M ! CMP-A ! AND : 
! CE ! 206 ! 11001110 ! 52736 ! N° ! NN ! ON  ! DEC-A ! OR : 
" CF ! 207 ! 11001111 ! 52992! O ! N:O ! O ! ——- » > : 
! DO ! 208 ! 11010000 ! 53248 ! P ! N:P ! P ! 6M = : 
! Di ! 209 ! 11010001 ! 53504 ! DO ! N:Q ! DO ! CMP-(I1),Y ! < . 
! D2 ! 210 ! 11010010 ! 53760 ! R !N:R ! R ! -— ! SEEN : 
! DS ! 211 ! 11010011 ! 54018 ! S ! NS! S ! — ! INT - 
! D4 ! 212 ! 11010100 ! 542721 T !N:T! T ! — ! ABS : 
! DS ? 213 ! 11010101 ! 54528 ! U ! N:U ! U ! CMP-ZP,X ! USR : 
! D& ! 214 ! 11010110 ! 54784 ! V ! N:V ! V ! DEC-ZP,X ! FRE ; 
! D7 ! 215 ! 11010111 ! 55040 ! W ! NW! W ! — ! SCRN{ : 
! D8 ! 216 ! 11011000 ! 55296 ! X ! N:sX ! X ! CLD ! PDL : 
! D9 ! 217 ! 11011001 ! 55552 ! Y ! N:Y ! Y ! CIP-A,Y ! POS : 
! DA ! 218 ! 11011010 ! 55808 ! Z !N:Z ! Z ! — ! SUR : 
! DB ! 219 ! 11011011 ! 36069 ! J ! N:I ! ——— ! — ! RND - 
! DC ! 220 ! 11011100 ! 56320 ! \ ! NN ! —— ! — ! LO6 è 
! DD ! 221 ! 11011101 ! 56576 ! 1 ! N:3J ! SM ! CNP-A,X ! EXP : 
! DE ! 222 ! 11011110 ! 56832 ! 7 ! N:7 ! SN ! DEC-A,X ! COS ; 
DPF 4225 À, 110111197060 NON D = = ! SIN . 
! E0 ! 224 ! 11100000 ! 57344 ! SONT = + (CPXOIS ! TAN 2 
! Et ! 225 ! 11100001 ! 57600 ! a ! Ns:! ! ——— ! SBC-(I,X) ! ATN L 
! E2 ! 226 ! 11100010 157856 & D EN" ! — L — ! PEEXK : 
Y ES ? 227 ! 1110001184 581121 + ŒN:E ! —— ! — ! LEN : 
! E4 ! 228 ! 11100100 ! 583689 ! d ! N:$ ! -—— ! CPX-ZP ! STRS$ : 
! ES ! 229 ! 11100101 ! 58624 ! e ! N:X ! ——- ! SBC-7P ! VAL - 
! E6 ! 230 ! 11100110 ! S88B0O ! Ff ! N:&°1 -——— ! INC-ZP ! ASC “ 
s E7 231 ! 1M001M11-E 59156 ? "9 FN Ens re ! CHRS$ : 
! E8 ! 252 ! 11101000 ! 59392 ! h ! N:Q ! ——— ! INX ! LEFTS$ ; 
! E9 ! 233 ! 11101001 ! 59648 ! i ! N:) ! ——-— ! SBC-Im ! RIGHTS ! 
! EA ! 234 ! 11101010 ! 59904 !  j ! N:8 ! —— ! NOP ! MID$ ; 
! EB ! 235 ! 11101011 ! 60160 ! k ! Ns+ ! -— 1! —— PE ; 
! EC ! 236 ! 11101100 ! 60416 ! 1 ! N:, ! ——— ! CPX-A Le ! 
! ED ! 257 ! 11101101 ! 60672 ! m ! N:- ! —-—- ! SBC-A ee , 
! EE ! 258 ! 11101110 ! 60928 ! n ! N:. ! ——— ! INC-A Ar pos ; 
UF 4,257 MAMOÏIII 9% 61184 ! © NN, — ei ; 
! FO ! 240 ! 11110000 ! 61440 ! p ! N:O ! ——— ! BER Lire : 
! F1 ! 241 ! 11110001 ! 61696 ! q ! Nzi ! ——— ! SBX-(I),Y ! —— ! 
2F2 % 242 4 11110010 ® 61952 nr et Na2! ——— 1 — 2 pue : 
! F3 ! 243 ! 11110011 ! 622089 ! s !N:3 ! —— ! —— Mess - 
! F4 ! 244 ! 11110100 ! 62464 ! ©? ! N:4 ! — 1! —— Re 2 - 
! F5 ! 245 ! 11110101 ! 62720 ! u ! N:5 ! ——— ! SBC-ZP,X ! — ! 
' ! F6 ! 246 ! 11110110 ! 62976 ! v ! N:6 ! ——— ! INC-ZP,X ! — ; 
MnF7.95 247 ! 11110111 ?! 63232! w ©! Ns7 um D —— Lee : 
! F8 ! 248 ! 11111000 ! 63488 ! x ! N:9 ! -—— ! SED Reg : 
! F9 ! 249 ! 11111001 ! 63744 ! y ! N:9 ! ——— ! SBC-A,Y tombé 2:50 : 
! FA ! 250 ! 11111010 ! 64000 ! z ! N:ss ! ——— 1 —— acier es : 
? FB ! 251 ! 11111011 ! 64256 ! € ©! Ns5 ! = 1! — RE ; 
1 FC ! 252 ! 11111100 ! 64512 4 1 ! Ns< ! ——— 1 ——— au : 
! FD ! 2535 ! 11111101 ! 64768 ! 3 ! N:= ! -—- ! SBC-A,X Ne 2 à 
! FE ! 254 ! 11111110 ! 65024 ! * ! Ns:> ! ——— ! INC-A,X Tr : 
MERNEU2SS AIT IIAAM NT 652807! rub, INSEE lee Lire : 
































tu inventeras. 


L'homme invente de plus en plus. Et de mieux en mieux 
Pour repousser les limites du possible, il s'est fabriqué des outils à sa mesure. 
L'ordinateur personnel Apple en est un. 





Rappelez-vous. Il n'y a pas si longtemps, 
l'ordinateur personnel c'était un rêve. Aussi fou 
que de vouloir posséder son propre vaisseau 
spatial. 

Et puis il y eut Apple. 

L'infonnatique indépendante, abordable (un 
Apple coûte moins qu'un simple photocopieur) 
et accessible (on apprend à s’en servir en quelques 
heures). 

Un Apple ne vient jamais seul. Avec lui, vous 
disposez d'une bibliothèque de programmes avec 
lesquels vous pouvez vous mettre tout de suite au 
travail. Sans avoir à apprendre le langage 
informatique. 


A 


Un Apple, c'est le meilleur moyen d'aller plus vite et plus loin. D'être créatif sans aucune contrainte. 
De regagner le temps perdu en tâches répétitives, en routine. D'aller jusqu'au bout de chaque nouvelle 


idée. De redevenir inventif à 100 %. 


Vous faut-il d'autres bonnes raisons? 


Alors, examinez une de vos 
journées de travail, vous en 
trouverez. Mais si vous savez déjà 
qu'un ordinateur personnel peut 
vous faire du bien, documentez-vous 
(voyez le bon à croquer Apple au bas 
de cette page). 

Et gardez bien en tête que votre 
oninateur personnel doit disposer de 

rogrammes pour vos travaux 
ituels. Et qu’il doit être capable de 
grandir en fonction de vos besoins 
(Apple dispose de plus d'accessoires 
que n'importe quel autre ordinateur 
personnel). 

Choisissez aussi un ordinateur 
célèbre et qui a fait ses preuves : 
400.000 Apple fonctionnent chaque 
jour dans le monde. C’est la 
inellleure preuve de leurs hautes 
performances et la certitude d’un 
service disponible sur le champ. On 
ne devient pas célèbre par hasard. 





Un Apple, c'est vrai, changeles façons 
de travailler,de penser, de décider. 
À vous de décider. 
_ 










BON A CROQUER 
SEEDRIN 


Avenue de l'Océanie ZI. de Courtabeuf 
91944 LES ULIS cenex 


[1 Que lire? Si vous voulez vous familiariser avec 

le monde de l'ordinateur personnel à travers la littérature Apple et les 
revues spécialisées, cochez cette case. 

[En français [ En anglais 

[Si vous ne pouvez plus attendre, cochez cette case pour recevoir la 
liste des revendeurs agréés Apple. 

Nom 
Société = 


Adresse 







EXS 1 














Code postal 











ordinateur personnel 





Comment réaliser un proœæramme ? Tout d'abord, 
id faut définir la stratégie du robot. 
Comment va-t-il se déplacer 7? Que faire 
lorsqu'ii est touché ? Où tirer ? Ansuite, il 
convient de bien étudier le langage et les 
possibilités du robot. Vous disposez en effet 
d'instructions simples vous permettant 
d'effectuer des opérations, de tester, de 
faire des boucles. Votre robot dispose de 
registres permettant de commander sa vitesse 
en X et en Y, de savoir quelle est sa 
position, de commander le radar dans une 
direction, de tirer un projectile (tir 
réglable en direction et en longueur) et 
également de connaître sont taux 
d 'endommagement (êtes-vous la cible d'un 
robot concurrent ?). 





ROBOTURR ” 


RY SILAS HARNER 






PRESS RETURN T@ BEGIN ” 





ROBOYWAR - De Silas Warner - MUSE SOFTWARE 
Prix indicatif : 350 FF TTC Le programme est entré et modifié grâce à un 
+ : éditeur incorporé. Il doit ensuite être 
Lorsque j'ai acheté Robotuar de guerre des :ssemblé pour être compris par le robot. Vous 
robots), il y a un peu moins d'un As je ne pouvez alors évaluer sa performance grâce à 
me doutais pas de ce qui m'attendait ? Sous | banc de test ultra perfectionné (ne 
des apparences de jeu innocent, se cache un excellente idée). Lorsque tout est prêt, 
programme diabolique qui peut ee à votre choisissez les adversaires de votre robot et 
santé si vous y passez vos nuits ! enfermez-les tous ensemble. Le robot ayant la 
; 4 , . meilleure £actique et le programme le plus 
De quoi s'agit-il au juste ? De concevoir Un évolué l'emportera. À noter que vous pouvez 
programme pour votre robot afin de le faire effectuer plusieurs combats de suite afin 
combattre avec d'autres robots (et de gagner, G'iavoir une évaluation plus complète de votre 
bien sûr 1). Le combat se déroule dans un ,obot, Ces combats peuvent se dérouler de 
lieu clos de 250m Es 250m, dans lequel les fscon entièrement automatique, ce qui permet 
robots ont tout loisir de se déplacer. Vous 3, exemple d'en faire effectuer 40 durant la 


contemplez la scène de votre poste it. Et vous découvrez au matin les scores 
d'observation, situé au dessus du lieu de respectifs ! 

bataille et séparé de lui par une vitre 

épaisse afin d'être à l'abri des projectiles 

tirés par les robots ! La partie droite de (Ce jeu réjouira tous les fervents de 


l'écran est un tableau de contrôle VOUS stratégie et de programmation optimisée. Une 
donnant la liste des robots engagés, leur jdée originale, une réalisation sans faille, 
représentation graphique, le pourcentage des <61a donne un ‘“best-selier". Compte tenu de 
dommages (suivant les projectiles reçus) et j3 concurrence, Robotwar a obtenu une très 
leur score. honorable 20ème place dans le classement de 


tous les logiciels sur Apple parus depuis 
novembre 1980, classement effectué par 
Softalk auprès de ses lecteurs. 


Ii paraît même qu'un championnat du monde a 
eu lieu aux Etats-Unis. Malheureusement, je 
l'ai su trop tard, sinon leur compte était 
bon, à ces Yankees ... Mais pourquoi pas un 
championnat de France ? Si vous êtes 
intéressé, écrivez-moi et surtout programmez 
un robot redoutable. Nous en reparlerons dans 
un prochain Pom's et tâcherons d'organiser 
quelque chose d'ici la fin de l'année. 


A vos robots ! 


ROBOTWAR BATTLEFIEL ML ULE Jean-François Duvivier, 1 rue du Sergent 
55 3 C 0 STC Blandan, 92130 Issy-les-Moulineaux. 





Pom's n° 4 


I 





Un PRINT USING 


d'intérêt général 





L'ue des instructions BASIC qui manque le 


plus à l'Appiesoft est le PRINFTUSING. Le 
prœramme que nous présentons permet de 
pallier son absence. Ecrit en Applesoft, 11 


occupe les lignes 40000 à 40044. Afin d'avoir 
le moins d'interaction possible avec le 
programme principal, il n'utilise que des 
variables de deux lettres commençant par Z. 


La valeur à écrire doit être placée dans la 


variable ZZ. Le masque de sortie est défini 
par ZZ$. L'appel se fait par un GOSUB 40000. 
Le sous-programme effectue la sortie 
formattée sur le périphérique en service au 
moment de l'appel (écran, imprimante...) et 
rend la main sans générer de retour à la 
ligne. 

Le masque peut être composé de quatre 
caractères différents : l'espace, le #, le . 
Fete tetes les espaces ne peuvent être 
incorporés qu'avant ou après les autres 
caractères, mais ne peuvent pas être 
incorporés à l'intérieur de ces caractères. 
Ces espaces seront automatiquement avant ou 


après le nombre formaté. 


#définit un chiffre; 
. donne l'emplacement de la virgule: 


Utilisation 


Les lignes 40000 à 40044 doivent être 
ajoutées au programme déjà contenu en 
mémoire. La solution la plus aisée consiste à 
faire un fichier Exec qui contienne les 
lignes 40000 à 4O0Où4 (voir Pom's, numéro 3). 
Pour cela, après avoir tapé le sous-proœgramme 
de PRINTUSING, ajoutez-lui les lignes 
suivantes : 


10 D$=CHR$(4):F$="PRINTUSING" 
PRINT D$"OPEN'"F$ 

PRINT D$"WRITE"F$ 

HO POKE 33,33 


50 LIST 40000, 40044 

60 PRINT D$"CLOSE" 

70 END 

et faites RUN. Le fichier PRINTUSING est créé 
(pour ceux qui ont la disquette POM'S, ce 
fichier existe déjà). Pour ajouter les lignes 
du sous-programme PRINTUSING à votre 


programme, il suffit alors de le charger en 
mémoire par un LOAD et de taper EXEC 
PRINTUSING. Lorsque la disquette s'est 
arrêtée, vous pouvez alors faire un SAVE de 


votre programme compiet. 


nAnn indique une sortie avec notation Attention ‘: vérifiez bien avant que les 

scientif ique de la forme E +ou- et deux jignes 40000 à 40044 de votre programme sont 

chiffres. inutilisées et que vous n'employez pas de 

! variables commençant par 2. 

Les exemples donnés dans le tableau vous 

permettront de mieux comprendre le 

fonctionnement de ce programme. À noter que : JRUN 

- aucun retour à la ligne n'est généré; PFRINTUSING DEMONSTRATION 

- les zéros en tête ne sont pas inscrits; 

- en cas de nécessité, des zéros seront LAPS ARE LE EPS: : MOe : à LPS 5 à L 

ajoutés à la fin afin de remplir le masque: 

- en cas de nécessité (précision du chiffre “10 77,79 -10 -.100E+02 -10.0000 

supérieure au masque), le nombre sera arrondi 15e NS Fa FSSiéres is 

au plus proche; © 0 Q + 

É 4 sig AorEr est négatif, l'une des 23,75 23,75 24 2,375E+01 23:7500 

positions # est prise pour le signe; 25 Be 35 3.500E+01 35.0000 

- si il y a plus ou moins de quatre signes A à 6.25 46 4,62SE+01 46,.2500 

, Te masque sera agrandi ou réduit 27,5 97:90 58 5.750E+01 97:9000 

automatiquement afin d'en laisser quatre: 68,75 6B.75 69 6.875E+01 66,7500 

= si le nombre ne tient pas dans le masque 80 80.00 80 8.000E+01 80.0000 

défini, ou si le masque est erroné, la sortie 91,25 91.25 91 9.125E+01 91.2500 

est formatée avec des points d'interrœæation. 102.5 77.9? 103 1.025E+02 102,5000 
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ILIST 

20 D$ = CHR$ (4):F$ = "PRINTUSING 
LU 

30 PRINT D$;'"'DFEN";F$ 


40 PRINT D$;"WRITE";F$ 

90 LIST 40000,40044 

60 PRINT D$;'"CLOSE'"';FS$ 

70 END 

40000 RE PRINT USING 

40001 ZX = O%ZW = 0%ZY = 0O$ZV = 0: 
IT = O$ZU = 0%2S = 0%ZR = 0:Z 
Q = ZZSZY$ = STR$S (ZQ) 

40002 IF LEN (ZY$) > = 5 THEN IF 
MID$ (ZY$, LEN (ZY$) - 3,1) = 
"E" THEN ZV = VAL ( RIGHTS ( 
ZY$,3)}3ZY$ = LEFTS$ (ZY$, LEN 
CZY$) - 4) 

40003 FOR ZH = 1 TD LEN (ZY$)? IF 
MID$ (ZY$,2W,1) < > “," THEN 


NEXT ZW 
IF LEN (ZY$) > 3 AND LEFTS$ 

(ZY$,3) = "-,0" THEN ZY$ = "- 

+" + RIGHTS (ZY$, LEN (ZY$ - 

3)%2ZV = ZU —- 1% GDTD 40007 

40008 IF ZH = 1 THEN ZY$ = RIGHT$ 
CZY$, LEN (ZY$) - 1)2 IF LEFTS$ 
CZY$,1) = "O0" THEN ZY$ = RICHT$ 
CZY$, LEN (ZY$) - 1)5Z0 = Z4 - 
1 


40004 


40006 IF ZW = 1 THEN 40009 
40007 IF ZW < LEN (ZY$) THEN ZY$ 
= LEFTS$ (ZY$,ZW - 1) + RIGHTS 
CZY$, LEN (ZY$) - ZW) 
40008 ZV = ZU + ZW — 1 
40009 FOR ZI = 1 TO LEN (ZZ$): 
MID$ (ZZ$,ZI,1) = " " THEN 
" "54 NEXT ZI! GOTD 40039 
FOR ZJ = ZI TO LEN (ZZ#)! 
MID$ (ZZ$,ZJ,1) = ‘“#" THEN Z 
T = ZT + 1% NEXT ZJ* GOTD 400 
15 
40011 IF MID$ (Z2$,2ZJ,1) = "," 
ZS = 152J = ZJ + 15 IF ZJ > 
(ZZ$) THEN GDOTD 40015 


IF 
FRINT 


40010 IF 


THEN 
LEN 


40012 FOR ZK = ZJ TO LEN (ZZ$)% IF 
MID$S (ZZ$,ZK,1) = "A" THEN Z 
R = 1% GDTD 40015 

40013 IF MID$ (ZZ$,ZK,1) = "#8" THEN 
ZU = ZU + 1% NEXT ZK! GOTO 40 
015 

40014 IF MID$ (ZZ$,ZK,1) < >" 
" THEN 40039 

40015 IF LEN (ZY$) < ZU + ZT + 1 
THEN FDR ZI = LEN (ZY$) TD 
7: + ZT + 152ZY$ = ZY$ + "OO": NEXT 

40016 IF VAL (ZY$) = 0 THEN ZV = 


15 GDTD 40021 


40017 ZF = ZVU + ZU + 1% IF ZR = 1 THEN 
ZF = ZT + ZU + 1 

40018 IF ZF < = 0 THEN 40021 

40019 ZY$ = STR$S ( VAL ( LEFTS (Z 
Y#,ZF)) + 5 x SGN (ZZ)) 

40020 IF LEN (ZY$) > ZF THEN ZU = 
ZV + 1 

40021 IF ZR < > QG THEN GOTD 400 
30 


40022 IF ZV > ZT THEN 40039 


40023 ZX$ = ""? IF ZZ < 0 THEN ZY$ 
= RIGHTS (ZY$, LEN (ZY$) - 
1)5ZX$ = "-" 
40024 IF ZV < = 0 THEN ZY$ = "O0" 
+ ZY$!ZU = ZU + 1! GDTD 4002 
4 
40025 ZY$ = ZX$ + ZY$ | 
40026 IF ZT - ZV > O0 THEN FOR ZI 
= 1 TO ZT - ZV$ PRINT “ "3:Z 
T = ZT - 1! NEXT ZI 
40027 IF ZT > O0 THEN FRINT LEFTS$ 


(ZY$,ZT); 
40028 IF ZS < > 0 THEN PRINT ". 
"$s IF ZU > 0 THEN FDR ZI = 
ZT + 1 TO ZT + ZU! PRINT MID$ 
(ZY$,ZIs1)%+% NEXT ZI 
GOTD 40037 
PRINT LEFTS 
ZVs=yZT 
If ZS < > 0 THEN PRINT “*, 
"$s IF ZU > 0 THEN FDR ZI = 
ZT + 1 TO ZT + ZU* FRINT MIDS$ 
(ZY$,ZI,:1)5% NEXT ZI 
40032 IF VAL (ZY$) = 0 THEN ZVU = 
0 


40033 PRINT "E";: 


40029 


40030 CZYS,2ZT)$S2ZV = 


40031 


IF ZV < 0 THEN 


PRINT "-" 
40034 IF ZU > = 0 THEN PRINT "+ 
“… 
? 
40035 IF AES (ZV) < 10 THEN FRINT 
"0"$; ABS (ZV); 
40036 IF AES (ZV) > 9 THEN PRINT 
AES (ZV); 
40037 FOR ZI = LEN (ZZ$) T9 1 STEF 
— 19 IF MID$ (2ZZ$,ZI,1) = " 
® THEN PRINT ‘" "ÿ4 NEXT ZI 
40038 RETURN 
40039 FDR ZI = 1 TD LEN (ZZ$) 
46040 IF MID$ (ZZ$,2ZI,1) = "VV" THEN 
PRINT " ‘$$ GDTD 40044 
40041 IF MID$ (ZZ$,ZI,1) = ",.'" THEN 
PRINT ","$;% GDTD 40044 


40042 IF MID$ (ZZ$,ZI,1) = ‘’#" THEN 
PRINT "?"54 GDTD 40044 

46043 IF MID$ (ZZ$,ZI,4) = sAAAA 
" THEN PRINT "E???"$52I « ZI 
+ 3% GDTD 40044 


40044 NEXT ZI* RETURN 
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En version standard, 
n'offre pas 
fichier: I] 

par 


ie DOS de l'Apple II 

d'utilitaires de gestion de 
vous appartient donc de définir 
vous-même l'organisation de vos fichiers, 


les modes d'accès, les méthodes de recherche, 
etc. les réponses à ce type de probième sont 
extrêmement variées. Cet article n'en 
présentera que quelques-unes, relativement 
simples à mettre en oeuvre et ne faisant 
appel qu'aux seules ressources du BASIC 
Appliesoft, sans s'attarder sur les structures 
purement séquentielles dont l'intérêt et la 


difficulté semblent assez réduits. 


1. Fichiers séquentiels à accès direct avec 


table de référence 


a) Table de référence complète en mémoire 


Sipposons que l'on veuille écrire un 
programme permettant de gérer un stock 
d'articles quelconques. Indépendamment des 
divers traitements à réaliser, ce qui nous 
intéresse ici est de pouvoir stocker et 
récupérer rapidement les données concernant 


un article précis (stock, prix unitaire ...). 


Poussons donc l'audace jusqu'à doter chacun 
de nos articles d'un code, long par exemple 
de 6 caractères alphanumériques, et qui nous 


cié d'accès. 
fichiers se 


servira de 
gestion des 
trois étapes : 


Le principe de 
décompose alors en 


. Etablir une table des codes-articles, clas- 
sée par ordre alphabétique. 

. Associer à chaque code-article une adresse 
renvoyant au fichier qui mémorise les 
données. 

. Ecrire ou lire les données à l'aide de ce 
fichier. 


Seule la table de référence, comportant les 
codes et les adresses, réside en mémoire 
centrale. Par ailleurs, elle sera stockée sur 
disquette dans un fichier séquentiel à accès 


séquentiel. 


Le programme suivant donne 
d'utilisation de cette méthode. 


un exemple 


LIST 
1 GOTO 1000 
30 REM 
40 REM xxx xxx xx NM HCMMMOKK 
x RECHERCHE x 
x DICHOTOMIQUE x 
DONC NC DUC NC DUC DC OKON ONCE CON INC OC INC AU 
59 Ki = 1°K2 = NZ$ IF NZ = 0 THEN 
K = 1% RETURN 
91 K = INT ((K1 + K2) / 2):5A$ = 
LEFT$ (N$S(K),6)% IF S$ = ÀA$ 
THEN K1 = -— 1% RETURN 
52 IF S$ < A$ AND K2 > Ki + 1 THEN 
2 = K$ GOTO Si 
53 IF S$ “ ÀA$ THEN RETURN 
54 IF K2 >; K1 + 1 THEN Ki = K° GOTO 
gi 
99 K = K + 15 IF S$ > LEFTS$S (N$« 
K2):6) THEN K = K2 + 1 
S6 IF S$ = LEFT$ (N$(K2),6) THEN 
Ki = -— 15K = KZ: RETURN 
57 RETURN 
60 REM 
200 DATA CREATION, CONSULTATION, 
ANNULATION,FIN 
210 DATA DONNEE 1,DONNEE 2, DONN 
EE 3,DONNEE 4,00NNEE 5, DONNE 
E 6 
220 FOR I = 1 TO 4° READ MES$(I): 
NEXT * FOR I = 1 TO 6: RKEAD 
LI$(I)$ NEXT * RETURN 
300 VTAE 22% HTAB 1: CALL - 868 
* VTAB 22% HTAB 1: INVERSE : 
FRINT Z2$% NORMAL : FOR Z = 
1 TO 2000 NEXT * RETURN 
980 REM 
990 REM xxx mm UN UN HER ON OKON MC 
x DEBUT DU x 
x FROGRAMME x 
NON HN DC HN DC HE DONC DIN DOC INK 
1000 D$ = CHR$ (4):B$ = ji! 
* ONERR GOTO 9900 
1010 DIM N$(100),LX(50) 
1015 GOSUB 200 
1020 TEXT * HOME f FOR I = 1 TO 
4% VTAB 2 + 2 x TI HTAB 1: FRINT 
l'' - "MES(I): NEXT : VTAB 22 
+ HTAB 1% INFUT “VOTRE CHOIX 
? "$CHS IF CH < 1 OR CH > 4 
THEN 1020 
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1030 IF CH = 4 THEN 8000 2005 EEX = 9 x (EEX = 9) 
rende IF NZ < > 0 THEN 1070 2010 GOSUB 2020: GOTO 1020 
Me Eh rise : Ta 2020 R = VAL ( MID$ (NS$S(K),7))2% PRINT 
“ ue 
tre À he lobes D$"OPFEN ARTICLES,L100"? PRINT 
x TABLE DE x 
x REFERENCE x D$"'READ ARTICLES,R"R? INPUT 
DC DMC DC DAC DC DOC DEC DOC DC DOC DC DC OC DC DDC CIN CAS: FOR I = 1 TO 6% INPUT D 
O$(I)t NEXT ? PRINT D$"CLOSE 
1050 EX = 1°Z = 0° PRINT DS''OFEN 14 PRINT D$"FR#0" 
TABLE"? PRINT D$"READ TAELE" 2030 one = 1 TO 6! UTAE 5 + I! 
: INPUT NZ? FOR I = 1 TO NZ: HTAB 1: PRINT LIS$(I)" ?: "DD 
INPUT N$CI)? NEXT ? INPUT N $CI)? NEXT : VTAE 22: HTAB 1 
L? IF NL = 0 THEN 1055 ? PRINT "FRAFPEZ UNE TOUCHE" 
1052 FOR I = 1 TO NL? INPUT LX{I ?? GET Z$: RETURN 
>? NEXT 2980 REM 
1055 PRINT D$"CLOSE":EX = 0? IF 2990 REM  XXXXX XX XX OOOUNX 
Z = 5 THEN NZ = O!NL = 0 x  ANNULATION x 
1060 FRINT D$"FR&O0" ACDC DC CD DC AC ACDC DC CC DC DC CC IC 
1870 TEXT : HOME :Z$ = ME$(CH)? HTAB 
20 - LEN (Z$) / 2: INVERSE 3000 IF Ki > 0 THEN 2000 
? PRINT Z$? NORMAL 3010 GOSUB 2020! VTAR 22: HTAB 1 
1075 UTAB 4: HTAE 1: PRINT "CODE ? CALL - 868: UTAB 22: HTAE 
ARTICLE ? ":! UTAE 4! HTAE 1? INPUT "ANNULATION CONFIRM 
16: INPUT ""3CAS$? IF LEN (C EE ? “?Z$? IF Z$ < > "D" THEN 
A$) > 6 THEN 1075 1020 
1080 S$ = LEFT$ (CA$ + E$,6): GOSUR 3020 EEX = 9:NZ = NZ - 1? IFK < 
50! ON CH GOTO 1100,2000,300 = NZ THEN FOR I = K TO NZ! 
0 N$CI) = N$(I + 1): NEXT 
1085 REM 3030 PRINT D$"OFEN ARTICLES,L100 
1086 REM 2x 2m 28e 2 2 286 D DC DAC DMC DIN DC ON "4 FRINT D$"WRITE ARTICLES,R 
x CREATION x UR? PRINT "ANNULE"?: PRINT D$ 
CDN DMC AC DAC DOC DOC DC DDC DC DC DC DEC NC IN IC "CLOSE"$ PRINT DS$S'"'FRS#SD'"'SNL = 
NL + 1LX(NL) = R? GOTO 1020 
1100 IF Ki = - 1 THEN Z$ = "EXI 
STE"? GOSUB 300: GOTO 1020 
PT PR fs Her 7788 HN 
? K © 7990 REM DCR ON NC DOC DOC NC DOC DC DC DC DC NC NC NC NC 
? FOR I = 1 TO 6! VUTAB S + I x 'SABUEC ÉRDE DORE 
? HTAB LEN (LI$(I)) + 4! INFUT Aie MEET De 
“"#DD$#(I)t NEXT ?: UTAB 22: HTAB CE DÉPÉRENCE L 
1? INPUT "OK ? ":Z$2 IF Z$ = 
DAC NC NC DOC DOC DOC DC DOC DOC DOC DEC DOC DC DC NC CN 
UN THEN 1110 
1120 EEX = 9!R = NZ + 1? IF NL > 
- 8000 IF EEX < > 9 THEN END 
: THEN Sue, LE CUSUNLES re 8010 PRINT O$"OFEN TABLE"? PRINT 
LL] ue . 
sv2S À < + ne mieu ro à = DSHRLTE THBLELE PRINT NE, FOR 
NZ TO K STEP -— 1:N$#CI + 1) = : ° 
nf M ? PRINT NL! FOR I = 1 TO NL: 
38 NE Dr EP Taneuc » 9 + RS ER RE LES 
(RD)? PRINT D$"OFEN ARTICLES, 
L100"? PRINT D$"WRITE ARTICL 9900 STE TIFEÉS «72258 0RE cz PEAR 
ES,R"R? PRINT S$: FOR I = 1 TO à ee 
A ELEC TES AN 9910 PRINT D$"CLOSE"? IF Z = 5 OR 
L Ù Ù Z = 6 THEN PRINT "CETTE DIS 
MT 1020 QUETTE N’EST PAS LA BONNE": FOR 
REM Z = 1 TO 1500: NEXT ?: GOTO 1 
1190 REM DCR ON NC DOC DAC NC DC DC NC DC DC NC NC CC 020 
* CONSULTATION x 9920 PRINT "ERREUR NO "Z" OANS L 
ACC DAC NC DOC DC DOC DOC DOC NC DOC DC DEC NC NC CN A LIGNE mn PEEK (218) n. 256 x 
9)! T4 T" 
2000 IF Ki > O0 THEN Z$ = "N’EXIS UE Eee Des + 
TE PAS": GOSUB 300: GOTO 102 à ; 
L : GOTO 1020 
52 
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RO - De Da CE 


Il ne s'æit 
rud imentaire, 
vraiment les 


là que d'un programme plutôt 
mais seules nous importent 
méthodes de gestion des 


fichiers, qui méritent quelques commentaires: 


-— TABLE est le fichier séquentiel où se 
trouve stockée la table de référence. EM 
mémoire, la table est chargée dans le tableau 


N$. 


— Le tableau L% contient les adresses 
libérées par l'annulation d'articles qui sont 
donc disponibles pour de nouveaux 
enregistrements. Sur disquette, ces adresses 
sont stockées à la suite de la table de 
référence dans le même fichier TABLE. 

-—- ARTICLES est le fichier à accès direct où 
sont stockées les données concernant les 
différents articles. La longueur des 
enregistrements (ici fixée à 100 de façon non 
significative), dépend bien sûr du nombre des 
données et du nombre de caractères que 
comporte chacune d'elles. 

— Dans la procédure de recherche 
dichotomique (lignes 50 à 57), K indique la 
position d'un code donné dans la table 
(position virtuelle si l'article en question 
n'a pas encore été créé). K1 est fixé à -1 si 
le code-article existe; il est toujours 
positif dans le cas contraire. La longueur 
d'un code dans la table est forcée à 6 
caractères par ajout de blancs si nécessaire. 
L'adresse corres- pondante dans ARTICLES se 
trouve simplement à la suite du code; ceci 
évite d'avoir à gérer deux tableaux pour les 
codes et les adresses (CF lignes 1080, 1130). 
Pour retrouver l'adresse, il suffit de 
prendre la partie de la chaîne qui se trouve 
au-delà du sixième caractère. 

-—_ M cas de création d'un article dont le 
code n'est pas le dernier de la liste dans 
l'ordre alphabétique, il faut décaler la 
table en conséquence (ligne 1125). De même si 
l'on annule un code qui n'est pas le dernier 
de la liste (ligne 3020). 

—— EM fin de programme, si la table de 
référence a été modifiée (ajouts ou 
supressions), il faut la sauver sur disquette 
(lignes 8000-8010). La variable EE% signale 
ces éventuelles modifications. 


b) Table de référence "tronquée" en mémoire 


Cette méthode repose sur les mêmes principes 
que la précédente, mais peut s'appliquer à 
des situations dans lesquelles le nombre 
d'éléments de la table de référence et la 
longueur des codes rendent problématique le 
stockage des deux données "code + adresse" en 
mémoire centrale. 


La solution envisagée ici consiste alors à ne 
garder en mémoire que les codes (ce qui 
permet d'effectuer des recherches rapides) et 
à utiliser un fichier à accès direct, dont 
les enregistrements sont classés dans l'ordre 
des codes, contenant les adresses. 
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En reprenant le programme ci-dessus, la 
récupération des données s'opère comme uit 
(ADRES étant le fichier des adresses) 


2020 PRINT D$"OPEN ADRES, L5" : PRINT D$"READ 
ADRES, R'K : INPUT R : PRINT D$"OPEN ARTICLES, 
LiDE". 


Dans la procédure de recherche dichotomique, 
JL n'est plus nécessaire de préciser 
LEFT$(...,6), puisque N$ ne contient plus que 
les codes. 


En ce qui concerne la mise à jour du fichier 
des adresses, deux solutions sont 
envisageables 

“* Mise à jour immédiate en création par 
exemple, on aurait alors 


1125 PRINT D$"OPEN ADRES, L5":IF K® NZ THEN 
GOTO 1128 

1126 FOR L=NZ TO K STEP-1 : Ri=L : 
PRINT D$"READ ADRES, R"R1 INPUT Z : PRINT 
D$"WRITE ADRES, R'R2 : PRINT Z : NEXT 

1127 FOR L=NZ TO K STEP-1:N$(L+1)-N$(L):NEXT 
1128 PRINT D$"WRITE ADRES, R"K : PRINT R 

1130 NZ=NZ+1 N$S(K)=S$ : ... 


R2=L+1 


C'est la solution la plus simple à mettre en 
oeuvre, mais elle risque parfois d'obliger 
l'utilisateur à patienter un certain temps 
devant son écran si l'article créé ou 
supprimé se trouve en début d'une liste 
longue. 


** Mise à jour en fin de traitement : les 
décalages du fichier des adresses sont alors 
effectués à l'issue d'une phase de création 
ou de suppression. 

On peut, par exemple, stocker les codes et 
les adresses des articles créés dans un 
tableau annexe puis, en fin de traitement, 
reprendre chaque code, localiser sa position 
K dans la table et mettre à jour le fichier 
des adresses. 


2. Fichiers non séquentiels à accès direct 

Si nous rebaptisons nos articles 
composants", on peut admettre qu'ils entrent 
dans la nomenclature de produits plus 
complexes, et que l'on veuille également 
gérer ces nomenclatures sur Apple. Une de ces 
nomenclatures se présenterait sous la forme 
d'une liste de codes-articles, avec pour 
chacun d'eux la quantité du composant 
correspondant qui entre dans la composition 
du produit concerné. Cette liste étant 
susceptible d'évoluer, il faudrait en outre 
pouvoir modifier rapidement une quantité ou 
un code donnés. 


solutions sont 
que nous examinons ici 
sache quel est le nombre 
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Là encore, bien des 
envisageables. Celle 
suppose que l'on 





LL 


maximum des composants par nomenciature et 
que l'utilisation non optimale de la capacité 
des disquettes ne soit pas pour nous un 
problème fondamental. Supposons donc que l'on 
mette 10 nomenclatures (désignées par un code 
à 2 caractères) par disquette et que chacune 
comporte au maximum 100 composants. 


On affecte à chaque nomenclature un chiffre 
compris entre O et 9 (C#) et l'on utilise un 
fichier à accès direct dans lequel les 
enregistrements O0 à 100 (1 à 100 pour les 
composants) correspondent à la première 
nomenclature, les enregistrements 101 à 201 
(102 à 201 pour les composants) à ia seconde, 
et ainsi de suite. 


Pour chaque nomenclature, le premier 
enregistrement se trouve à l'adresse 
RO=101*C : on peut y stocker le code et le 


nombre de composants (NC) dont les données 
sont mémorisées dans les enregistrements RO+1 


à RO+NC. En outre, on conservera en mémoire 
la liste des codes-nomenciatures avec les 
chiffres C% correspondants (qui sera stockée 


dans un fichier séquentiel). 


Voici quelques procédures liées à ce type 
d'organisation 

** Affectation d'un C% à une nomenclature 
nouvelle, après avoir vérifié que NN est 


inférieur à 10 et que CN$ n'existe pas déjà 
(NN=nombre de nomenclatures, NOf$-table des 
nomenclatures, CN$-code de 1a nomenclature) 


10 CN$=LEFT (CN$+" ",2) 

20 FOR I=0 TO 9: Z=0 : FOR J=1 TO NN : 

VAL(MID$(NO$(J), 3))=1 THEN Z=1 J=NN 

30 NEXT : IF Z-0 THEN C#=I : I=9 : RO=101*C% 
HO NEXT : NN=NN+1:NO$(NN)=CN$+STR$ (CH): ... 


IF 


#** Création d'un (NOMENC=f ichier 


des nomenclatures) 


composant 


PRINT D$"OPEN NOMEMC, 
PRINT 


10 NC=NC+1 R=RO+NC : 
L100" PRINT D$"WRITE NOMENC, R'R : 
(données) 


.. 


#*#* Récupération des données d'un composant 


situé en lème position dans la liste 


10 R=RO+I : PRINT D$"OPEN NOMENC, L100" 
PRINT D$"READ NOMENC, R"'R : INPUT 


3. Fichiers à accès direct avec pointeurs 
Gardons notre problème de nomenclatures à 
titre d'exemple. ne autre façon de le 
résoudre pourrait se décomposer ainsi 


a) Création d'une table de référence, avec 
codes et adresses (cf. supra) 


Création d'un fichier à accès direct (cf. 
supra) mémorisant, pour chaque nomenclature, 
le code, le libellé,..., le nombre de 
composants et les adresses des premier et 
dernier de la nomenclature dans le fichier 
des composants. 
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c) Création d'un fichier des composants 
(séquentiel à accès direct) mémorisant pour 
chacun d'entre eux le cœile-article, la 
quantité et l'adresse dû composant suivant 
pour la même nomenclature. Un caractère 
spécial à la place de cette adresse signale 
que l'on est arrivé au dernier composant 


d'une nomenciature donnée. 


d) Il faut en outre stocker dans un fichier 
le nombre total de composants enregistrés 
(toutes nomenclatures confondues), afin de 


savoir à quelle adresse écrire les données 
d'un composant nouvellement créé. 


L'utilisation de ce type de structure ne pose 
guère de problèmes. Soient; 
NT : nombre total de composants 


-- A1 : adresse du premier composant pour 
une nomenclature donnée 

-—- A2 : adresse du dernier composant pour 
une nomenclature donnée 

_— AS : adresse du composant suivant pour 
la même nomenclature (0 si dernier 
composant ) 

-— COMPO : fichier des composants 

-- NOMENC : fichier des nomenclatures 


Création d'un composant 


. enregistrement des données dans COMPO à 
l'adresse NT+1, avec AS=0 

. enregistrement de AS=-NT+t pour le compo- 
sant situé à l'adresse 42 

. enregistrement de A2=NT+1 dans NOMENC 


** Recherche d'un composant 


. lecture de l'enregistrement situé à 
l'adresse A1 (on connait donc AS). Si lie 
code-article est celui que l'on recherche, 
tant mieux ! 

. Sinon, lecture de l'enregistrement AS ..., 
et ainsi de suite, jusqu'à ce que l'on trouve 


ce que l'on cherche, ou bien AS=0. 


Si l'on doit accéder rapidement à un 
composant donné, cette méthode est 
certainement moins efficace que ia précédente 


qui, à partir d'une liste imprimée des 
différents composants de la nomenclature avec 
leur numéro d'ordre, permet d'accomplir ce 


genre de recherche sans perte de temps. 


Mais la méthode des "pointeurs" peut trouver 
à s'appliquer dans de nombreuses situations : 


. ignorance du nombre maximum d'éléments par 
chapitre (nos nomenclatures) 

. souci de ne pas "gaspiller'" de place sur la 
disquette 

. mémorisation d'un nombre limité d'éléments 
par chapitre, avec roulement (on mémorise par 
exemple 10 évènements, l'enregistrement d'un 
onzième provoque l'écrasement du premier). Il 
suffit en effet de modifier les différentes 
adresses (dont A1 qui devient l'adresse du 
deuxième) et d'enregistrer le nouvel élément 
à l'ancienne adresse du premier d'entre eux. 
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Le W.CCF: 


(CET S Gite tiers) 





La septième West Coast Computer Faire (WCCF) 


à San Francisco vient de confirmer, avec ses 
100 conférenciers, 600 exposants et 40.000 
visiteurs en trois jours, le dynamisme de 
l'industrie américaine de l'informatique 
individuelle. N'oublions pas que 80% des 
ordinateurs individuels dans le monde se 
trouvent aux Etats-lhis; par ailleurs, 80% 
des ordinateurs individuels vendus dans le 
monde en 1981 ont été fabriqués aux 
Etats-lhis. Le marché américain devrait 


dépasser un million d'unités en 1985, contre 
300.000 en 1981. A la 7ème WCCF, le dynamisme 
le plus marquant était celui de tous les 
développements réalisés autour de l'Apple, 
que ce soit pour ses périphériques, ses 
logiciels d'application ou ses lœiciels de 
base. 


Les périphériques 


11 serait difficile 
exhaustive des périphériques 
possible de relier à un Apple. 
parmi les derniers apparus sur le 
est intéressant de noter le 
quelques-uns d'entre eux : 


une liste 
qu'il ! est 
Toutefois, 
marché, il 
succès de 


de dresser 


- la reconnaissance vocale, avec 64 
300 dollars; 

- la synthèse vocale à partir d'un texte 
rentré au clavier (375 dollars): 

- la musique synthétique d'une très grande 
qualité; 

- les périphériques de communication et 


mots pour 


l'annonce de réseaux locaux; 
- les disques durs 5 pouces et 8 pouces; 
- les imprimantes graphiques. 


Logiciel d'application pour DOS 3.2 ou 3.3 


Bviron 5.000 logiciels d'application pour 
l'Apple II sont actuellement commercialisés 
sur le marché américain. Ces logiciels 
peuvent être classés en trois grands domaines 


les lŒœiciels professionnels, 
éducatifs, et les jeux. 


les logiciels 


Quatre types de logiciels professionnels 


connaissent un vif succes : 


1) Les iœgiciels de traitement de texte, dont 
les performances deviennent comparables à 
celles de machines dédiées ‘: pagination 
automatique, possibilité de souligner, 
d'inverser des paragraphes, de disposer (en 
anglais) d'un dictionnaire de 50.000 mots 
avec avertissement des fautes d'ortographe 
éventuelles, aide à la mise au point de 
formes grammaticales, à la mise en page 
automatique de lettres, The vingtaine de 
logiciels de traitement de texte pour Apple 
étaient en démonstration, dont les principaux 
étaient SuperScribe II, Magic Window, Apple 
Writer IT, Executive Secretary, Easy Writer, 
Letter Perfect, Wordstar, Write-on et Zardax. 

2) Les logiciels d'aide à la décision dont 
les publicités vantent le temps considérable 
qu'ils font gagner à leurs utilisateurs pour 
la mise au point d'un budget, l'analyse d'une 


CE 
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enquête ou la simulation des effets d'un | 
changement de paramètre. Parmi ces logiciels, | 
une dizaine se sont imposés dont Visicalc, 
Personal Finance Manager, Tax Planner, Micro 
Planner et Micro Finesse. Ce type de logiciel | 
connait un succès considérable outre- 
Atlantique. 

3) les logiciels de gestion de base de 
données, qui permettent à un non-informa- 
ticien de travailler sur un fichier en 
bénéficiant d'énormes possibilités. Parmi les 
lœgiciels les plus connus, on retrouve DB 
Master, PFS, CCA DMS, Data Factory et File 
Fax. 


H) Les logiciels de gestion qui sont des 
versions adaptées à l'Apple des logiciels 
déjà rôdés sur mini-ordinateur (comptabilité, 
facturation, paye, ...). Plusieurs sociétés 
se sont spécialisés dans la conception de ce 
LL RS type de logiciel, en particulier Micro lab, 
Continental Software, Broderbund et Peach- 
tree. 
CARTE AN PARIS 6502 Parmi les logiciels éducatifs, ce sont les 
logiciels réalisés pour l'apprentissage des 
discipiines scientifiques qui connaissent le 


LE SYSTEME D'EXPLOITATION plus grand succès, tels les produits de North 
UE RS LU SES ET TU ROSE tiques. les didacticiels de lecture 


+ POUR UNE PROGRAMMATION SIMPLIFIEE et/ou écriture comme Magic Spell marchent 
aussi très bien. Æifin, il faut souligner 


* POUR DIVISER PAR 20 LA LONGUEUR l'intérêt de logiciels d'apprentissage de 
DE VOS PROGRAMMES disciplines non scientifiques : Apple Music 
+ POUR GERER DES MEMOIRES DE 140 K Theory en musique, Supermap en géographie, ou 
A 120 MEGAS Stellar Astronomy pour apprendre à repérer 
+ POUR GERER VOS FICHIERS SEQUENTIELS les étoiles. Et la liste n'est en rien 
INDEXES MULTICLES exhaustive #! Dans le domaine de l'éducation, 
« POUR GERER VOTRE ECRAN PAR MASQUES remarquons aussi la percée du langage Loœæo à 


HS TTL TE EN USE ORAN TISSU Le 7è WCCF. 


Quand aux logiciels de jeu, ils connaissent 
+ POUR GERER VOTRE IMPRIMANTE PAR À 3 : 
MASQUES D'IMPRESSION une floraison exceptionnelle et atteignent 


des niveaux de performance remarquables. 
LA VERSION MULTIPOSTE VOUS ASSURE : En complément de cette brève revue, 
- LA MISE EN COMMUN TOTALE n'oublions pas le développement de la carte Z 
DES RESSOURCES SANS CONFLIT 80, deux cartes 8088 avec MS DOS rendant 
DEL eNES. l'hpple compatible avec L'ordinateur 
individuel IBM, les extensions mémoire 128K 
et la diffusion de plus en plus grande du 
langage Forth. 


Fconorisez de la piace stir vos disquettes 






cROMEGAS 
rue des A Pierres 







M Vous ouvez économiser u i 

4 impasse du Lacquet 69007 NON p miser un , Ft chaque fois 

Dino MONTBELIARD Tél, (7) 86119: que vous enregistrez un graphique haute 
résolution sur une disquette. Il suffit pour 


cela d'effectuer un BSAVE avec üne longueur 
de $1FF8 ce qui est suffisant comme on peut 
le constater avec “les adresses du 
graphique", dans Pom's numéro 1. 


un M effet, les quatre premiers octets 
“mémorisés avec une image haute résolution 
contiennent l'adresse et la longueur du 


x fichier. La sauvegarde d'un fichier de 

UN PRODUIT informatique longueur $2000 consomme par conséquent $2001! 
service octets. La syntaxe de la sauvegarde d'une 

3, rue Meyerbeer, 06000 NICE, tél. (93) 87.74.67 image haute résolution en page 1 doit donc 


être : PRINT D$"RSAVE IMAGE, A$2000, L$1FF8",. 
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Apprentissage 
de l’assembleur (II) 





Notre propos n'est pas ici d'écrire un manuel 
sur l'assembleur d'une part, je ne m'en 
sens pas la compétence; d'autre part, il 
faudrait que Pom's puisse paraître à une 
fréquence plus grande. Mais surtout, comme 
vous avez pu le constater par la biblio- 
graphie de mon premier article (Pom's 3), 
nous avons l'embarras du choix en matière de 
bons manuels: je vous cite pour mémoire le 
tome III de "La pratique de l'Apple II'', aux 


ÆHitions du PSI. 


Cependant, un bon manuel n'est pas tout; il 
faut la pratique, et la meilleure manière de 
l'acquérir consiste à  décortiquer des 
prœrammes déjà écrits. C'est précisément ce 
que je vous propose, du moins dans le 
précédent article et le prochain, en attirant 
votre attention sur les pierres d'achop- 


pement. Les difficultés, 
les ai rencontrées ! 


je les connais, 


je 


Dans cette deuxième partie, je m'adresse plus 
particulièrement aux programmeurs moins 
expérimentés, en exposant à ma manière les 
points qui m'ont fait souffrir. Puissent les 
plus expérimentés parmi les lecteurs, qui 
auront le courage de poursuivre cette lec- 
ture, y découvrir certaines vérités qui leur 


avaient peut-être échappé ! 
Pensez hexa ! 


L'hexadécimal, ce n'est pas 
peut rapporter gros ... 


diffile, et Ça 


Pour ceux qui partagent ma mauvaise mémoire, 
un procédé mnémotechnique peut rendre de 
fiers services. Plus le truc semble ridicule, 
plus il a de chances d'être retenu : 

B comme Bonze 

€ comme douce 

D comme Dreize 

E comme Equateurze 

Je n'ai rien pour A et F, mais tout le monde 


sait que A représente et F est seize 
moins un, ou plutôt 
$F=$ 10-$ 1 ("Un-Zéro moins ln") 


Tout d'abord, soulignons la présence du signe 


dix, 


"$" : cela signifie que ce qui suit est 
exprimé en  hexadécimal. Enfin, pourquoi 
énoncer "Un-Zéro moins lh" ? À ce propos, il 
est utile, quand on utilise une autre base 


décimale, de prendre l'habitude 
chaque chiffre: ainsi, $16 


que la base 
d'individualiser 


n'est pas Seize, mais Ui-Six. C'est un pli à 
prendre, qui évite la confusion avec les 
nombres décimaux, surtout quand le nombre 
hexa concerné ne comporte pas de lettre. 
Rassurez-vous, au niveau de l'Apple, il n'y a 


jamais plus de quatre chiffres hexa ensemble! 


Pensez binaire 


Chaque fois que j'ai un problème, je me 
reporte à la représentation binaire des 
valeurs que je dois traiter. C'est toujours 
plus simple de construire quelque chose à 
partir de bonnes définitions, et de revenir à 


celles-ci quand on est en panne. 


Par exemple, 
représentation 


tout le monde sait que, dans la 
négative d'un nombre, il y a 
un bit dans la position la plus significative 
du mot (en l'occurence de l'octet, quand on 
travaille en simple précision). Mais comment 
trouve-t-on l'opposé de 0010010 ? Dans tous 
les bons manuels, on parle de complément à 
Deux, avec une démonstration dont le chemi- 
nement m'échappe régulièrement. Or, 
l'addition en binaire étant très facile, il 
me suffit de me rappeler que l'addition d'un 
nombre et de son opposé donne 0. Je n'ai plus 
qu'à trouver un nombre qui, additionné au 
nombre de départ, donne des © partout : 
00100101 
+ 11011010 
1 00000000 
Il y a un 1 qui apparait dans la position la 
plus à gauche, mais comme il disparait de 
l'octet, je n'ai pas à m'en préoccuper, du 
moins tant que je n'ai pas à tester les 
indicateurs du MOT D'ETAT. 


REM - Je ne veux chagriner personne et recon- 
nais, avec le reste de l'univers, la réalité 
du complément à Deux, qui donne des 0 partout 
avec une retenue qui se propage à gauche, et 


différencions-la du complément à ln, ou COM- 
PLEMENTATION LOGIQUE, avec des 1 partout. 


Revenons à notre exemple; la même opération 
en hexa consiste à faire le complément à 
$100: 
25 
+ DB 
îi O0 


la représentation négative de 
été choisie précisément pour obéir 
l'addition utilisées par le 
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D'ailleurs, 
l'octet a 
aux règles de 
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microprocesseur. Ce dernier ignore compiète- 
ment les nombres négatifs. Il se préoccupe 
simplement de savoir si le bit le plus signi- 
ficatif de l'octet est positionné (bit 7). Si 
tel est le cas, il positionnera de la même 
manière le bit le plus significatif du mot 
d'etat, bit 7, que nous autres humains, nous 
empressons d'appeler N, ou indicateur de 
gigne négatif (ce que se refuse à faire lance 
Leventhal dans son manuel - cf. Biblio. = 2) 
Il ne vous a pas échappé, à la lecture du 
précédent article. que cet indicateur servait 
à bien d'autres choses que de déterminer si 
un octet est négatif. Le moniteur l'utilise 
par exemple savoir si un caractère est frappé 
sur le clavier, l'octet de l'accumulateur 
prenant immédiatement un bit "Un" en position 
la pius significative, alors que, pour 
permettre la lecture il avait été mis à zéro 
précédemment par "STROBE" (Octet $C010 de la 
mémoire). Il n'y a rien de bien négatif dans 
tout celà ! 

Les limitations du ‘"huit-bits" 

La mémoire de l'Apple II fait au maximum 64K. 
Cela se représente en binaire par un “in‘ 
suivi de seize Zéros. Comme on utilise 
l'adresse zéro, on voit qu'il faut seize bits 
pour adresser toute la mémoire. On ne 
g'étonnera pas de savoir que le registre qui 
contient l'adresse de l'instruction suivante 
-le “Registre Contrôleur de Séquence", ou 
“Compteur Ordinal" (PC pour Program Counter)- 
est un registre de deux octets. Il est 
d'ailleurs le seul de ce genre. 
L'accumuiateur et tous les autres registres 
sont des huit-bits. 


On conçoit! mas difficulté quil eymÉant a 
manipuler des adresses de seize bits à l'aide 
de registres et de mémoires qui n'ont que 
huit bits: il faut à chaque fois doubler les 
instructions de transfert du type LDA et STA 
(quand on passe par l'accumulateur). Ii faut 
donc s'habituer, quand on lit ou écrit un 
programme, à saisir ces instructions par 
groupes de quatre et à réserver en mémoire 
deux adresses contiguës pour stocker les 
adresses. Pour tout simplifier, la partie la 
plus significative de l'adresse se place 
généralement dans le second octet (il parait 
que cela permet une exécution plus rapide!). 
Remarquez que votre grande pratique des 
programmes en BASIC vous a familiarisés avec 
les instructions du genre: 
4O LET FIN = PEEK(30)+PEEK(31)*256 
50 POKE FIN, 96 

ce qui n'est en fait que du langage machine 
transposé en Applesoft. 


Pour 
soyons 
binaire 
mettre 
celui-ci 
en hexa, 
de fichier 


fixer les idées, supposons que nous 
en train de fabriquer un fichier 
en mémoire et que nous voulions 
un caractère "fin de fichier" quand 
sera rempli (91 en décimal, ou $60 
est effectivement le symbole de fin 
pour le programme AppleWriter). 


RE, Se 7 


sommes obligés d'avoir un compteur, qui 

sur la fin de notre fichier (et qui 
incrémenté à chaque fois que l'on stocke 
un nouveau caractère en mémoire). Comme ce 
pointeur doit pouvoir adresser sur seize 
bits, il nous faut lui réserver deux mémoires 
contiguës = dans notre exemple 30 (partie 
basse) et 31 (partie haute)-. 


Essayons de traduire ces instructions en 
langage machine (transsosé en Applesoft}) en 
bon assembleur, en n'oubliant pas que si 
Applesoft affecte et réserve une piace 
mémoire aux variables quand eiles se 
présentent, le programmeur en langage machine 
doit les réserver à l'avance et, de 
préférence, les déclarer en début de 
programme. 


Nous 
pointe 
sera 


FIN EQU $1E 
LDA £$60 
LDX £$00 
STA (FIN,X) 


(30 et 31 décimal donneront $1E et $1F) 


On remarquera que l'instruction LDA, qui 
comporte bien des modes d'adressage (huit, 
voir article précédent pour leur significa- 


tion), n'a pas l'adressage indirect sans un 
registre associé. Il a fallu utiliser l'a- 
dressage indirect préindexé par X. Nous avons 
pris le soin de mettre le registre-X à zéro 


avant de l'utiliser, sinon nous serions allés 
quérir l'adresse ailleurs qu'en $1E-$1F. 


Si nous avions choisi l'adressage indirect 
post-indexé par Y {à savoir STA (FIN),Y] , il 
aurait fallu également s'assurer préaia- 
blement que le registre-Y contienne bien 
zéro, faute de quoi on serait bien passé par 
$1E-$1F, mais l'adresse trouvée dans notre 
pointeur se serait ajoutée au reliquat 


contenu dans le registre-Y. 


On notera avec satisfaction que l'instruction 
va chercher toute seule, dans les deux octets 
contigus qui constituent le pointeur ($1E et 
$1E+1), la totalité de l'adresse où ranger 
notre constante. Mais il faut parfois gérer 
soit-même les deux parties de l'adresse. Par 
exemple quand on souhaite faire progresser le 
pointeur FIN, après avoir mis un nouveau 
caractère dans le fichier: 


AJOUT INC FIN 
BNE BOUCLE 
INC FIN+t 
BNE BOUCLE 


La première 
basse de l'adresse 


instruction actualise la partie 
($1E),jusqu'à la valeur 
£$FF et se rebranche sur ia boucle de 
traitement. Au tour suivant, cette partie 
basse prend la valeur £$00, car $100 dépasse 
la capacité d'un octet, l'indicateur Z(éro) 
se positionne vrai (1), et le test BNE n'est 
pas vérifié. Il faut traiter soi-même le 
report, ce que je fais dans ia suite du code 
en actualisant la partie haute ($1F) par INC 
FIN+1. 
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N.B. 
toujours 
parvenu à 
rassurez-vous : 
serait pas 
réæir ! 


I1 faut espérer que le deuxième BNE est 
vérifié, faute de quoi je serais 

écrire dans la mémoire morte! Mais 
aupaïiavant, le DOS ne se 
laissé passer sur le corps sans 


La page zéro est arrivée ! 


Pour que mes pointeurs fonctionnent avec 
l'adressage indirect, il faut qu'ils soient 
choisis dans la page zéro, c'est-à-dire dans 
les 256 premières positions de mémoire, $00 à 
$FF, les seules qui soient adressables en un 
seul octet. Mais attention, il n'y en a que 
256 et, si vous ouvrez votre Manuel de 
Référence à aux pages 74 et 75, vous 
constaterez que la fameuse PAGE ZERO est plus 
encombrée que la place de l'Etoile à six 
heures du soir. L'utilisateur ne devra pas 
empiéter sur les systèmes auxquels il risque 
d'avoir recours (DOS, bien sûr, mais aussi le 
nmiteur dont on va utiliser abondamment les 
sous=-programmes et également le BASIC de 
service, si on veut parvenir à un bon 
mixage ...). 


La pile (STACK) peut apporter une solution de 


rechange, pour certains stockages temporai- 
res. Mais c'est une solution à utiliser avec 
prudence (on n'est pas en FORTH !) et qui 


demande une saine gestion (de pile). 


he solution de rechange : les compilateurs 


On assiste actuellement à un certain engoue- 
ment pour les compilateurs. Eh effet le BASIC 
interprété se montre trop lent dans certaines 
applications. Je citerai à ce sujet une étude 
parue dans "Cider Press" et qui comparait les 
temps d'exécution d'un petit programme de jeu 
écrit en différents langages. Il s'agissait 


d'un jeu de Marienbad, l'Apple jouant contre 
lui-même. Les résultats (étonnants) furent 
les suivants: 

BASIC Integer 8 minutes 

Pascal 2 minutes 

Forth 1 minute 

Langage Machine 1 seconde 


Certes, le BASIC compilé fait gagner du temps 
en exécution ,mais ce temps est payé au prix 
d'un temps de chargement plus long des 
programmes . En effet, la compilation est 
prolixe et le programme résultant est 
beaucoup plus long que le programme BASIC 
initial. Le temps d'exécution sera raccourci 


par rapport à celui obtenu en BASIC 
interprété, sans atteindre - tant s'en faut - 
la vitesse d'un programme écrit en langage 
assembleur. Par contre, si l'on part d'un 
programme existant en Applesoft, la 
compilation sera beaucoup plus rapide qu'une 
compilation manuelle; celle-ci consiste à 
traduire chaque instruction BASIC en une 


série d'instructions assembleur (pour plus de 
détails cf."Converting Integer BASIC to As- 
Sembly Language" - Biblio 1). 


Mais la meilleure solution sera de programmer 
directement en langage-machine ou, si l'on 
part d'un programme BASIC, de reprogrammer 
les parties du programme qui nécessitent une 
exécution plus rapide. Si limitée soit-elle, 
l'expérimentation que mes amis et moi-même 
avons faite des compilateurs disponibles 
s'avère plutôt décevante . Il semble que les 
compilateurs actuels tolèrent assez mal les 
programmes BASIC qui n'ont pas été écrit 
spécialement en vue de la compilation. Cette 
allergie se traduit par un certain nombre de 


messages d'erreur qui interrompent la 
compilation. S'il faut ré-écrire le programme 
pour pouvoir le compiler, où se trouve le 


bénéfice? Tout donne à penser que nous sommes 
en présence de compilateurs de première 
génération qui auront des descendants plus 
civilisés. 


he optimisation facile 

S'il s'agit avant tout d'améliorer la vitesse 
d'éxécution, tout en réduisant la taille du 
code, le programme AOPTIMISER apporte une 
solution à considérer. Il s'æit d'un petit 
logiciel de ‘Sensible Software" qui est 
extrêmement performant. h deux passages, il 
réduit la taille des variables à une seule 
lettre et condense en une ligne toute série 
d'instructions susceptibles logiquement de 
figurer sur une même ligne. Il fait donc, en 
mieux, ce que fait le CRUNCHER de DAKIN (voir 
Pom's 2). 


th espoir déçu 
Dans la suite 
compilation manuelle, 


lœique de son article sur la 
Randy HYDE -toujours 
lui- nous a donné, deux ans plus tard, un 
outil automatisé avec "SPEED/ASM" (chez "On 
Line}. J'avoue que l'annonce de ce lœiciel 
m'avait mis l'eau à la bouche (N'est-ce pas 
le propre de toute bonne publicité 1), 


veut de nature à satisfaire 
aux langage machine qui 
profiter de l'efficacité 


Ce logiciel se 
les réfractaires 
veulent néanmoins 


d'im assembleur. Il s'agit d'une extension de 
votre assembleur lui donnant les capacités 
d'un macro-assembleur. SPEED/ASM permet de 
traduire ("à la main") un programme BASIC en 
programme assembleur, pratiquement instruc- 
tion par instruction ou, pour être plus pré- 
cis, à raison de deux instructions SPEED/ASM 
(au minimum) pour une instruction BASIC: en 
effet chaque opérande fait l'objet d'une 


instruction séparée. 


L'idée est séduisante, la réalisation moins 
satisfaisante : on y introduit une phase 
supplémentaire, car on n'est pas dispensé de 
l'assembleur et, en outre, même s'il est 
limité à une vingtaine d'instructions, il 
faut apprendre un nouveau langage, une sorte 
d'assembleur hybride. Peu satisaisant en 
première instance, SPEED/ASM est susceptible 
d'être réhabilité en appel. 
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Conclusion 


Tout cela nous laisse peu d'espoir d'échapper 
au code machine et à l'assembleur. Mais le 
mal n'est pas bien terrible. La connaissance 
du langage machine nous permet de mieux com- 
prendre l'Apple et de mieux utiliser le BASIC 
(cf. "All about Applesoft", Biblio - 4). 


La solution, pour être efficace, consiste à 
mélanger langage machine et Applesoft. Dans 
le prochain article, nous étudierons un uti- 
litaire qui vous permettra d'utiliser votre 
système de traitement de texte pour éditer 
vos listes-source d'assemblage, même si votre 
système de traitement de texte favori n'ac- 
cepte que des fichiers en binaire. Le pro- 
gramme annoncé est un parfait exemple de 1'u- 


Courrier 


des lecteurs 





Abonné depuis peu à votre revue, j'ai pu en 
apprécier la qualité des articles. Néanmoins, 
J'aimerais faire une remarque. Je souhaite 
que la partie “initiation” à l'utilisation de 
l'Apple et de ses langæes n'empiète pas sur 
les articles de fond ou les progranmes 
élaborés destinés aux amateurs "avertis"... 
Mais pour ne léser personne, je pense qu'il 
vous sera nécessaire d'aigmenter le nombre de 
pages de chaque numéro, aînsi tout le monde 


sera satisfait. A moins qu'une parution 
bimestrtelle ou mensuelle vous semble plus 
avantageuse. 


En attendant, je vous envote une disquette 
contenant deux programmes que j'at écrits en 


collaboration avec 1m de mes amis, Thierry Le 
Talleenree 

** Jacques Tran-Van, Marseille ** 

Réponse 

Nos lecteurs, étant tous des utlisateurs 
Apple, représentent par la force des choses 


un marché somme toute encore assez restreint: 
nous ne pouvons pas particulariser la revue 
en la dédiant exclusivement aux "pros"! C'est 
pourquoi nous nous efforçons de publier dans 
chaque numéro des articles de niveaux variés. 


tilisation simultanée de BASIC et coûe-machi- 
ne, en prenant le meilleur de chaque monde. 
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1 - Nicole Bréaud-Pouliquen et Daniel-Jean 


David : La pratique de l'Apple II - Vol III. 
Hitions du P.S.I. 
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3 — Randall Hyde Converting Integer BASIC 
to Assembly Language. Article paru dans Apple 
Orchard, Vol I, Number I, Mars-Avril 1980. 
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L'augmentation de la fréquence ou du nombre 
de pages prend plus de temps que prévu 
initialement, car la Commission Paritaire des 
revues de presse a refusé de nous reconnaître 
en tant que publication. Nous sommes 
considérés comme un organe publicitaire de la 
société Apple et, à ce titre, privé du régime 
postal et du régime de TVA des périodiques. 
Cette blague augmente nos coûts d'au moins 
20%, sans compensation de recette. Nous 
devons donc croître avec plus de prudence ... 


Ceci dit, nous sommes heureux de pouvoir 
publier dans ce numéro de Pom's un de vos 
deux programmes, en espérant publier le reste 
par la suite. 


J'ai acheté les nunéros 2 et 8 de votre revue 
et la trouve très intéressante. Je me permets 
de vous envoyer ci-joint quelques remarques 

1} A propos de l'article de J-F Duvivter 
(Pom's numéro 2) 

Correction en page 19 : il ne faut pas 
repasser au clavier entre le moment où l'on 
remplit les mémoires $AASD et AASF, et celui 
où l'on lance le petit programme, car le DOS 
les modifie quand il rend le contrôle à 


l'utilisateur. Il faut donc rentrer : *300 : 


Il est possible que nous passions dans ..., *AA?75: ..., *AASD: 9, *AASF: 0, *300G. 
l'avenir à une fréquence de publication plus 

grande, ou que nous atgmentions le nombre de 2) A propos de l'article de J-L Meillaud 
pages. Nous devons, avant de le faire, nous (Pom's numéro 3) 

assurer de rendre Pom's économiquement M. Meillaui regrette que îles gens n'ayant 
viable. Nous avons fait l'expérience, dans le qu'un simple Apple II Plus ne puissent 
présent numéro, de réduire le texte, ce qui utiliser le mini-assembler. C'est pourtant 
revient à l'augmenter de dix pages (par possible (cf. 5). Correction en page 11, 
rapport au format normal). ligne 3 : lire $14 et non $28. 
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3) A propos de ‘La pratique de l'Apple II, 
volume III 

IL y a quelques erreurs quant aux mémoires 
libres pour l'utilisateur: $14, $1B et $1C 
sont utilisés en haute résolution; $F9 est la 
valeur de ROT ; $D6 est utilisé par 
l'Applesoft. En effet, selon E. Agier (Pom's 
3, page 66), faire POKE 814,255 empêche de 
lister; en fait, POKE 214,x avec x supérieur 
à 127 fait que toute commande (hors DOS) 
tapée à partir du clavier équivaut à un RUN. 
Pourquoi ? 


4) Attention au FLASH ! 

IL m'est arrivé, alors que je tapais un 
programme tout en l'essayant, la mésaventure 
suivante relisant une ligne de programme 
avec la flèche à droite, certains caractères 
changeatent au passæe du curseur. Le RESET 
n'y faisait rien; il fallait, c'est le cas de 
le dire, se retaper la ligne. Je viens 
récenment de trouver le pourquoi de cette 
boue J'avais pressé RESET alors que 
J'étais en mode FLASH ! Voyons donc Îles 
détails 


Le manuel de référence Apple nous apprend que 


COUT, la routine de sortie de caractères du 
montteur, fait avant l'affichæe un AND 
logique entre l'accumulateur, qui contient le 


caractère à imprimer, et la mémoire $32, qui 
contient $FF en mode normal (L'AND ne change 
rien), $3F en mode inverse (on ne garde que 
les 2 bits de poids faible) et $7F en mode 
flash (on garde les 4 bits faibles). Et le 
tableau des caractères ASCII affichés à 
l'écran nous montre que certains signes en 
mode flash sont représentés en inverse : 
c'est effectivement ce qui se passe dans le 
moniteur et en Integer. Mais l'Applesoft 
dispose d'un second masque : pour représenter 
tous les caractères clignotants, il fait un 
OR logique entre l'accumulateur et la mémoire 
$F3 qui vaut $0 en mode normal ou inverse, et 
$40 en mode flash (on force à 1 le 3ème bit). 
C'est ce que montrent les routines Flash, 
INverse et Normal ($F273 ...), et la routine 
OUTDO ($DBSC à SDB66). 


Or, le RESET exécute un proranme du moniteur 
qui remet la mémoire $38 à $FF, mais qui ne 
touche pas à la mémoire $F3, chasse gardée de 


l'Applesoft. Ainsi, appuyer sur RESET quand 
on est en mode flash entraîne un mode 
pseulo-normal qui fait que Îles caractères 


(dans un LIST ou un PRINT) de 
sont transformés dans les 
cœæactères de 96 à 127 ils paraissent 
normaux, mais repasser dessus avec le curseur 
les change. 


ASCII affichés 
codes 32 à 63 


Pour sortir de cette situation, on peut taper 
POKE 243,0 — ou taper NORMAL - ou encore FP 
(NEW et RESET ne marchent pas). Et comme tl 
faut bien tirer parti de ses ennuis, cela 
nous amène à une astuce qui permet d'imprimer 
des minuscules sur l'imprimante, tout en 


tapant des majuscules dans le listing, ceci 
de la façon la plus simple du monde : til 





suffit avant le PRINT de faire POKE 232,32. 
Et l'on imagine bien que 1l'ORA$F3 et Île 
AND$32 permettent de varier à sa guise de 


telles combinaisons. 

5} Le mini-assembler à portée de tous 

Dans la disquette SYSTEM MASTER du DOS 5.5, 
le fichier INTBASIC permet de charger sur la 


carte lang e le BASIC Integer, Île 
MINI-ASSEMBLER, SWEETI6 et Île Progranmer's 
aid No.l. Si l'on n'a pas la carte langæe, 


on peut quand même récupérer Le 
mini-assembler en chargeant INTBASIC plus bas 
dans la mémoire et en modifiant dans Île 
programme Îles adresses de branchement absolu. 
Les opérations à effectuer sont les suivantes 


BLOAD INTBASIC, 4$6000 


85DD:86 
CALL -151 85E7 :86 
8537:6 8633:85 
855B :85 8668 :85 
85BF:86 BSAVE MINI-ASSEMBLER ,A$8500,L$170 


Le mint-assembler proprement dit est compris 
entre $#8500 et $863C. Mais le fichier va 
jusqu'en  $865F, car il y a à l'adresse 
mnémotechnique $8666 un JMP $8592 vers 
l'adresse d'entrée de l'assembleur. Pour 
utiliser l'assembleur, 11 suffit donc de le 
BLOADer et de faire CALL-151, suivi de 8666G. 
St l'on veut faire cela à partir d'un 
programme Applesoft, &L faut faire 
HIMEM:34048. On peut sans doute appliquer le 
même traitement à l'Integer, mais cela 
devient titanesque. Pour ceux qui n'ont pas 
le DOS 3.3 nt l'Integer, il suffit de 
recopier Île listing désassemblé ou non du 
mini-assembleur, qui ne fait que 317 octets, 
plus le JMP $8592 en $8666. 


** Olivier Herz - 78 Chatou ** 
N.D.L.R. 


Merci pour 
le manque 


tout ce travail. Malheureusement, 
de place ne nous permet pas de 
reproduire ici le code du mini-assembleur. Ce 
ne devrait pas être dur à trouver, puisque 
les DOS 3.3 sont largement diffusés ! 

Comme nous ie fait remarquer un autre 
lecteur, Monsieur Philippe Jaffré, le numéro 
1 de Nibble 1982 publie une lettre dans 
laquelle on montre comment le mini-assembleur 
peut être ensuite déplacé en mémoire. Ceci 
dit, vous pouvez aussi le faire en utilisant 
le programme de déplacement en assembleur du 
numéro i de Pom's. 


Suite à la lecture des trois premiers numéros 
de Pom's, voici quelques remarques qui, je 
pense, pourront aîder d'autres lecteurs. 


1) Le livre What's Where in Apple 

Je viens de trouver dans MICRO de janvier 88 
la signification des signes utilisés. La 
syntaxe en est la suivante : /XY/ avec : 


Première lettre 
S : subroutine 
P : parameter 
# : hardware 


Seconde lettre 
E } entry 

B : block 

n : n bytes long 
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B : buffer L : label 
F s: flag 

2) Personnalisation du DOS 

Afin d'avoir un marimum de place sur chaque 
disquette, il est intéressant quand on 
possède nm Apple II mumi de la carte langæe 
de n'avoir que sur une disquette de boot Le 
langæe complémentaire (INTBASIC pour Apple 
II Plus, FPBASIC pour l'ancien). Or, à chaque 
fois que l'on reboote une disquette après la 
mise sous tension, Le DOS force le chargement 
du langge dans la cœrte en écrivant 00 à la 
première adresse de celle-ci. Pour éviter 
cette opération, il faut passer en mode 
moniteur et taper “*BFD3 : EA EA EA (ces NOP 


vont remplacer le code 8D 00 EO0), puis 
inittialiser la nouvelle disquette. 

3) Personnalisez vos disquettes, de P. 
Boutreux 


Tout d'abord, une petite rectification : le 
DOS réserve 12 caractères pour l'information 
"DISK VOLUME ", et non pas 11. Remarque : si, 


après avoir booté me disquette ainsi 
personnalisée, on change de disquette et que 
l'on tape CATALOG, on obtient le nouveau 


cataloque avec l'ancien en-tête, en effet, Le 
DOS ne relit pas cette information. Est-il 
possible de l'y amener ? Dans le même ordre 
d'idées, le DOS ne relit pas le nunéro de 
volume quand il liste 1m cataloque; que 
faut-il faire ? 


4) Comment court-circeuiter les nunéros de 
volume 

St vous voulez empêcher les ordres DOS 
provenant d'un programme d'utiliser le 


contrôle par numéro de volume, il suffit de 
vous mettre en moniteur et de taper 
*BE1E:EA EA DO (qui remplace la séquence C5 
2F, F0 04, c'est-à-dire CMP 82F, BEQ $BE26). 


5) Petite annonce 

Je vends un moniteur portable couleur Thomson 
(08/81) à 2500 FF, l'interface AVB pour Apple 
(revision 0 ou 1, 500 FF), une imprimmte 
Seikosha GP80M (09/81) avec logiciel hard 


copy d'écran, 500 feuilles et 2 rubans (2200 
FF le lot). 
++ 


Alain Sorin - 80 rue Roiget de Lisle - 
92000 Nanterre - Tel (1} 721 04 10.** 


N.D.L.R. 
Merci pour tous ces éléments, et bonne chance 


pour la petite annonce, à laquelle nous 
produisons une compagne ci-dessous. 


Je vends un moniteur N/B (10/80) 700 FF, et 
une imprimante à aiguille OKI 40 colonnes 


(friction) avec interface Apple îles deux 
pour 1000 F TTC). 
** 


Jean-François Duvivier - 1, rue du Sergent 
Blandan - 92130 Issy les Moulineaux - Tel 558 
0578 (le soir) ** 
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Les clubs 


ont la parole 





Groupe Apple de Genève (Suisse) 


Apple de Genève (GAG) est un club 
regroupant environ une centaine d'utili- 
sateurs enthousiastes d'Apple de la région 
Genevoise et de la France voisine. Ce club a 
de nombreuses activités, dont la publication 
d'un journal, GAG'S LETTER, et huit groupes 
d'intérêt sur les sujets suivants : langage 
assembleur 6502, Pascal, matériel, jeux et 
graphiques, introduction au BASIC, télécommu- 
nications, applications commerciales et enfin 
enseignement. Ce club recherche l'échange 
d'idées, d'informations et d'expérience. 


Le groupe 


Contacter Alan J. Ehrlich, Groupe Apple de 
Genève, Ch. Ami-Ar&and 9, Case Postale 20, 
CH-1290 Versoix, SUISSE. 


Association Hespérides (69) 


L'association Hespérides a été créée 
récenment. Elle est constituée essentiel- 
lement d'experts-comptables équipés de 


matériels de marque Apple et a pour objet de 
favoriser entre ses membres la connaissance, 
la communication et l'échange d'informations 
et d'expériences sur matériel micro-infor- 
matique. 

Le siège social est situé au 63 rue de 


Créqui, 69006 Lyon. 

Président : M. Jacques Calop (79) 07.03.65 

Trésorier : M. Marcel Gorlier (79) 33.25.49 

Secrétaire M. Victor Bérard (7) 893.42.63 
. tous trois experts-comptables. 


Club Microtel CESA (78) 


club Microtel CESA a récemment ouvert ses 
Jouy-en-Josas. id U dispose 
actuellement de matériels de marque Apple, 
Goupil et IBM Un intérêt tout particulier 
est accordé à l'utilisation de L'informatique 


Le 
portes à 


individuelle en gestion. 
Contacter Christophe Peslerbes, HEC chambre G 
33, 1 rue de la Libération, 78350 Jouy-en- 


Josas. Tel (3) 956 8000. 
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Micro-informations 


Un_jeu de cartes 2. L'émulateur de disquette 2*64KDE de Legend 
met à votre disposition un “lecteur de 
La carte ADALAB facilite l'acquisition et le disquette" à accès très rapide, et bénéficie 
traitement de mesures de laboratoire en temps des mêmes comptabilités que la carte 
réel. Pour 5200 FF HT, elle offre les précédente. Des utilitaires spéciaux sont 
caractéristiques suivantes : entrée fournis avce la carte, dont l'un effectue la 
analogique 12 bits (20 lectures/sec.), sortie Copie complète ou la sauvegarde d'une 
analogique (50.000 conversions/sec.), E/S disquette en 16 secondes. Prix public : 6.500 
digitales (16 bits E/S ou 8E et 8S, horioge FF TTC. 
temps réel 32 bits à compte rebours ! 
programmable et 2 compteurs/timers 16 bits. Ces deux cartes sont livrées avec toute une 
Le prix inclut un logiciel QUICK T/0 écrit en série de programmes utilitaires et de 
langage machine 6502. De nombreux accessoires démonstration. Vous pouvez étendre votre 
et lœæiciels.sont disponibles: les logiciels Visicalc à plus de 80K avec 1a carte 128KDE, 
réalisent les fonctions suivantes : gestion €et à plus de 100K avec deux cartes 6UK. Les 
et visualisation de données, présentation documentations en français doivent être 
graphique, ajustement, échantillonage et terminées à la date de parution de Pom's. 
stockage rapide en mémoire vive sur carte Contacter pour tout renseignement BIP, 3 rue 
d'extension. de Duras, 75008 Paris. Tel (1) 264 0232. 


La carte ALPHA 6809 permet de disposer 
simultanément du MC 6809E et du MC6502 sur 1h bras robotisé pour l'Apple ! 
Apple II. Cette carte, prenant en charge 

l'interprétation du P-code, accélère très pour 200 


sensiblement la vitesse d'exécution des troisième bras, en kit, commandé par moteurs 
programmes Pascal et FORTRAN, sans pas à pas, et comportant cinq axes ou 
recompilation. Prix : 3.260 FF HT. articulations. Il pèse huit livres, mesure 17 

pouces et possède trois doigts d'origine. Il 
Alpha systèmes = 51 rue Thiers = 38000 j,j faut du 12 volts à 3 ampères, et celui 
Grenoble - Patrick Binet (76) 87.98.27 lui donne la force de soulever 10 onces 

(environ 280 BE la précision de 
Toujours des cartes ! positionnement est de 0,1 pouce soit 0,285 


ongle. D'autres extensions que les trois 
Quatre nouvelles cartes pour l'Apple II et doigts peuvent être fixées à loisir: 


l'Apple III : MicroClock, MicroTalker, certaines sont déjà réalisées et 
MicroPort et MicroSynth. Respectivement, il opérationnelles. 

s'agit de cartes horloge (dixièmes de 
seconde, années bisextiles), de synthèse 
vocale, d'E/S parallèle 8 bits et de synthèse 
bruit/musique. 


livres, vous vous offrez un 


Pour la conversion des unités anglaises en 
unités plus courantes, ainsi que pour tout 
renseignement, contacter Colne Robotics Ltd, 


1 Station Road, Twickenham, Middlesex. Tel 
March Communications Ltd, 14/16 Manchester (;) 892 7044. Royaume Uni. 


St., Liverpool LI6ER. Tel (51) 236 2000 - 
Royaume Uni. 


Des extensions mémoire "REA Mettez un tigre dans votre moteur ! 


Trois façons d'augmenter la taille mémoire de 1. La carte 88 
votre Apple : 
Selon sa publicité, la carte qu'IBM craint de 

4. La carte RAM 64KC de Legend rajoute 64K à vous voir acheter transforme votre Apple en 

4&K, en occupant un seul connecteur et en ordinateur 16 bits compatible avec le MS-DOS 
consommant nettement moins. Elle est du micro IBM. En outre, elle étend votre 
compatible avec Pascal (en remplaçant la mémoire de 64K. I1 vous suffit de débloquer 
carte langage si nécessaire) et CP/M. Le DOS 899 dollars et de contacter Coprocessors, 50 
peut s'y charger, libérant ainsi la mémoire West Borkaw Road, Suite 64, San Jose, CA 
centrale. Prix public : 3.300 FF TTC. 95110 (USA). 
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2. La MetaCard 
La MetaCard, outre 
le fonctionnement 

et du 8088 
alimentation 


ces possibilités, permet 
simultané du 6502 (Apple) 
(IBM), mais exige par contre une 
séparée (fournie avec la carte). 
Metamorphic Systems, dont nous n'avons pas 
l'adresse, vend sa carte 980 dollars, avec 
l'extension 64K. 


3. Informations complémentaires 


Les deux cartes peuvent être étendues à 128K. 
La MetaCard possède en standard le CP/M-86 de 
Digital Research, le MS-DOS et le Pascal UCSD 
étant en option. La carte 88 offre l'un ou 
l'autre des deux premiers SED en standard, 
l'autre et le Pascal pouvant être acquis en 
option. 


}, Le microprocesseur Motorola 6809 


La société IEF commercialise depuis peu une 
carte comportant 64K de MEV et un 
microprocesseur 6809 fonctionnant en 8/16 
bits. Les 61K peuvent être utilisés en 
simulation de disquette à accès rapide. 
L'ensemble est vendu 4900 FF HT, programmes 
d'application compris. 


IEF- 228/230 rue Lecourbe - 75015 Paris - Tel 
(1) 828 0601. 


LOGICIEL 


Un générateur de programmes 


core un générateur de programmes pour 
l'Apple ! Avec C.0.R.P., on crée entre autres 
ses masques de saisie et de sortie sans 
savoir programmer . Les programmes sont 
générés en Basic Appitesoft et peuvent ensuite 
être modifiés facilement. Il faut avoir un 
Apple UBK et deux lecteurs, ainsi que 235 
dollars US pour le Basic System. La version 
2, qui comporte une disquette d'utilitaires, 


revient à 425 dollars. 


Dynatech Microsoftware Division, 3 New 
EBigland Executive Park, Burlington, MA 01083 
US. A. 


Jonglez avec les disquettes ... 
Avec l'utilitaire LinkDisc, vous pouvez, à 
partir du Pascal, réaliser les opérations 
suivantes : obtenir un catalœue de disquette 
en DOS 3.3, convertir en Pascal des fichiers 
binaires ou texte DOS 3.3, comparer bit à bit 
deux fichiers ou volumes Pascal, examiner une 


disquette au niveau de l'octet ou même du bit 
et lister un fichier texte Pascal avec 
numérotation automatique de lignes et de 


pages, dates et titres. 


LinkDisc est 
26th Street, 


réalisé par Link Systems, 1655 
Santa Monica (USA) et venu 70 


j dollars. 


à Q 


t 








Publications 


1. La récente collection “Micro-ordinateurs", 
aux Æitions Eyrolles, propose les nouveaux 
titres suivants : 


. Micro-ordinateurs : comment ça marche - R. 
Schomberg - 96 pages - 55 FF 


. Le Basic universel - R. Schomberg - 128 
pages - 55 FF 

. Pascal par l'exemple - J.A. Hernandez - 156 
pages - 55 FF 

+ Apprendre à programmes en BASIC = C. 
Delannoy - 272 pages - 80 FF 

: Langage d'un autre type : LISP = C. 


Queinnec - 200 pages - 89 FF 


2. Les 
titre : 


éditions du PSI annoncent un nouveau 


. La découverte de l'Applesoft 
Frédéric Lévy - 120 pages - 65 FF 


(tome 2) - 


3. Peut-on enfin vous cacher la parution aux 
Éditions d'Organisation de l'ouvrage suivant, 
que vous pouvez commander pour 149 francs 


(port compris) aux Fditions MEV ? 


les modèles en 
- Illustrations de 


ë Comprendre et utiliser 
gestion - Hervé Thiriez 
Piem - 192 pages - 149 FF 


Cet ouvrage offre une présentation 
pragmatique des modèles et de leur 
utilisation; sa compréhension ne pose pas de 
problème pour les personnes ayant le niveau 


Terminale C. 


> N 
si 
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instruction. 


Bibli hi Outre les instructions du Basic et du DOS, 
| 10GTap 1e sont rassemblés d'autres mots-clés (erreurs, 


reset, moniteur, instructions, DOS, 
A | F D curseur ...). Par exemple, si vous avez une 

RE Fe erreur dans votre prœramme, nul besoin de 
fouiller dans le manuel de l'Applesoft ou 


es celui du DOS. Cherchez donc à "ERREURS". Tout 
BASIC APPLESOFT - Manuel de référence kst ]1à : le code, les causes possibles, les 


alphabétique Fender. 
Paui MERRY = ÆHiitions MNEMODYNE 
Prix indicatif: 120 F chez SIDEG 


Voici un livre qui pourra faire bonne figure 
dans votre bibliothèque, ou plutôt à côté de 
votre Apple, car il risque de vous servir 
souvent ! D'autant plus souvent qu'il est 
écrit en français. Nul besoin donc d'être 
familiarisé avec la langue de Shakespeare 
pour l'utiliser... 























Par contre, des erreurs non référencées 
émaillent le texte : j'ai pu en relever 
jusqu'à six dans une seule pæe! Il est 
regrettable que l'on puisse publier un livre 
sans apparemment l'avoir relu une seule fois. 
Avis aux éditeurs. 


A vrai dire, il s'agit plus d'un répertoire Tout d'abord sceptique quant à l'utilisation 
que d'un livre. Le sous-titre le définit que je pourrais faire de cet ouvrage, je me 


d'ailleurs fort bien ; Définition, suis vite aperçu de son utilité et de la 
utilisation et exemples pour les instructions facilité d'emploi pour retrouver une 
et concepts de programmation, éditions de information (facilité düe essentiellement à 
textes et traitement de fichiers (DOS)". une présentation exellente). 


Les différentes instructions de l'Applesoft 

et du DOS y sont classées par ordre C'est dire que je le conseille non seulement 
alphabétique et une ou plusieurs pages est aux débutants en Applesoft, pour qui il est 
consacrée à chacune. On y retrouve, avec une un instrument remarquable, mais également aux 
présentation très claire, leur syntaxe sous utilisateurs plus avançés, qui peuvent avoir 
forme de diagramme, leur utilisation avec de temps en temps des doutes ou des lacunes. 
conseils, modes d'emploi, restrictions...et Courrez vite chez votre distributeur Apple 
un petit programme utilisant cette pour le découvrir ! 
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ESPACE ELECTRONIQUE 





ILLEL CENTER PARIS 15°: 143, av. Félix-Faure - 75015 Paris, Tél. 554,97.48, Métro : Bolard. 





LES MICRO-ORDINATEURS 


ILLEL CENTER PARIS 10° : 86 bd Magenta 7 5010 Poris, Tél. 201.94.68, Métro : Gare de l'Est, Parking : Magenta. 


APPLE 1Il 
L'Apple [D] est un système d'ordi- 


Option 8 :38.109 F TIC. 
Idem A + Fleppy supplémentaire 








nateur de bureau puissant, faisant | OptionC: 
TE partie d'ensembles étudiés sur me- rs TTC 
Ti sure et conçus pour résoudre vos em B + 
APPLE : é 4 FROM rt besoins complexes en application. | Imprimante 
Un des micro-ordinateurs les plus 1 APP oPPY Pour les managers, les financiers, | thermique 
fiables de sa génération, Apple 11 +1 NTEUR les analystes et tous ceux gui ont | graphique, 


est-utilisé dans de nombreux 
demaines : gestion, comptabilité, 
ensegnement, utilisations scienti- 
fiques et industrielles, applications 
domestiques. 





D'une très grande robustesse 
{garantie totale 1 an) Aplq Il n'ex- 




















besoin d'organiser des faits el des 
chiffres, il existe le système 
d'Analyse de l'information Ap- 
plie III. 

Option A : 33.330 F TTC visi- 
cale 3 - S.OS. buissness Basic - 
Moniteur3 12” 





cèdepass kget sa facilité de trans- 
port renforce encore sa souplesse 
d'utilisation. 
Sonextensibilité est remarquable : 
AppleIl étant compatible avec la Pour APPLE II 
plupart des périphériques actuels, PHANTOMS FIVE 48 K (DOS 3.3) .........,....,. 260,00 F TTC 
ilbénéficie d’un large éventail de SY'ACE EG::S 48 K (DOS 3.2 où 3.3)....-.......... 260,00 FTTC 
possibilités. RASTER BLASTER 48K ,.,..,...,,............, 295,00 FTTC 
APBLE:PANICE RER RE 2 elle A ENTOELIt 380.00 F TTC 
COMPUTER BISMARCK48 K...........,,..... 395.00 F TTC 
COAMPUTER NAPOLEONICS 48 K. ........,,,.... 450,00 FTTC 
CONFIGURATION DE COMPUTER AIR COMBAT48K.........,......, 495,00 FTTC 
DÉVEL@PPEMENT VISICALC (DOS 3.3) 16 secteurs ....,......,,..., - 1764.00 FTTC 
VISLTREND EE MISIREOT 225. 00 Ne. 25632010 
Langage VISIDERT Le dense be SR 1 764,00 FETE 
— NISIPOOT EE ee. AIRES Cr | 1640,52 F TIC 
Matériel BASIC PILOT PASCAL FORTRAN MISIPERML RE cet 7 LE. Ur ME 1375.92 F TIC 
Te = DESKTOPRPANAII 2... eee. 1 764.00 F TTC 
Por Plus Plus Plus II Plus CCA/DMS (Gestion de Fichier)... 1 105,44 F TTC 
Mémoire APPLE WRITER.. . RP . 57624 FTEFC 
utilisateur 32K 48 K 48K 48 K APPLE POST.......... ss EE M 352,80 FTTC 
(RAM) : c _— APPLE EE. pneus ae lee 0 1293,60 F TIC 
Micro-programmation Cartes, Cartes ane qe MINI-ASSEMBLEUR APPLE SOFT........,...... 23520 F ITC 
Unités BASIC BASIC Langage Langage PROGRAMME & 
oui T SW à 1 COMPTABILITÉ GÉNÉRALE (SAARD 341040 FITC |5 
| PROGRAMME PAYE (GIPSI). ane 2381 00NIC LS 





BON DE COMMANDE 


EXPRESS 99 8 EE Ne — ds —— = 


commonde ferme stidésire recevoir d'urgence 
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Avretourner à : ILLEL Center Informotique : 
SN ICE Vente por correspondanee 
143/ovenue Féhix Faure 75015 Paris. 
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Plalacommande paiement comptant 
Elacrédit® à partir de 2000 F 

Je verse 20 X du montant total de mon achat: 
Cijoint: Chèque boncoire [| C.CP. [1 Mandot carte D 


MConditions de crédit CREG : «Être saloriés 
220% minimum ou eomptun, solde arrondi à la centaine supérieurs. | 
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pour envoi postal 


TOTAL A PAYER 

















Pour mieux choisir 
“votre” ordinateur 
et pour mieux l'utiliser. 


<1 


Ts Len 
CS" 


2 


L'ORDINATEUR 


INDIVIDUEL 


Vous y trouverez : 


l'actualité et les tendances de l'informatique individuelle < des galops et des bancs 

d'essoi des principaux matériels < des panoramas et des tests comparatifs . le point 

des grandes manifestations internationales + des articles d'initiation < des synthèses 

« des programmes + des interviews “exemplaires” + des conseils + des idées 
° des astuces. 


| L'ORDINATEUR 
INDIVIDUEL 


chez votre marchand de journaux 


41 rue de la Grange aux Belles - 75010 Paris 





